Separar una cadena en dos partes

[freedatos]

Iniciado por Jhonnyf

Dim strCadena as String
Dim intPos As Integer
Dim Texto1 As String
Dim Texto2 As String
strCadena="Hola,Mundo"

intPos = InStr(1, strCadena, ",") 'posicion de la ","
Texto1 = Mid(strCadena, 1, intPos - 1) 'Extraemos desde el inicio hasta la posicion de la coma -1
Texto2 = Mid(strCadena, intPos + 1) 'Extramos desde la posicion de la coma + 1 hasta el final

end if

y en el caso de que fueran 3 comas 3 partes?