BestKill ☠

In questo modo il contenuto presente su ‘txt_MultiLine’ viene splittato su altri textbox.

Dim SettagiLetti as string
Dim Settaggi() as string

Private Sub Command1_Click()
SettaggiLetti = txt_MultiLine.text 'cambo testo multilinee con una frase/parola per riga
Settaggi() = Split(SettaggiLetti, vbCrLf)

text1.text = Settaggi(0)
text2.text = Settaggi(1)
text3.text = Settaggi(2)
text4.text = Settaggi(3)
End Sub