[Vb6] Scomporre una String

[quartutek]

Ok risolto

Dim strSplit() As String

strSplit = Split("nome^cognome", "^")
Text1 = strSplit(0)
Text2 = strSplit(1)