Separar una cadena en dos partes

[Jhonnyf]

Iniciado por freedatos

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

Código:

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


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

intPos = InStr(1, strCadena, ",") 'posicion de la ","
Texto2 = Mid(strCadena, 1, intPos - 1)
Texto3 = Mid(strCadena, intPos + 1)

Lo ideal seria pasarle la cadena a una función y que esta te devuelva una matriz.