grazie, ho trovato questo codice:

Dim SettagiLetti As String
Dim Settaggi() As String

Private Sub Command1_Click()
SettaggiLetti = Text1.Text
Settaggi() = Split(SettaggiLetti, *)

Text2.Text = Settaggi(0)
Text3.Text = Settaggi(1)
Text4.Text = Settaggi(2)
Text5.Text = Settaggi(3)
End Sub

che divide ogni * ma come faccio a fare che divida ogni spazio?

Grazie