[sendbad100]

تفضل

PHP كود :

Private Sub Command2_Click()
Dim m As String
sp = Split("1 2 3 4 5 6 7 8 9", " ")


For i = 0 To UBound(sp)
m = m + Trim((sp(i)))
       
Next
MsgBox m
End Sub