Sub M_snb()
    y = 100
    ReDim sn(5)
    
    For j = 0 To UBound(sn) - 1
       sn(j) = Int((y - Z) * Rnd)
       Z = Z + sn(j)
    Next
    sn(j) = y - Z
    
    MsgBox Join(sn, vbLf)
End Sub