Fos
24 de Enero del 2006

Hola, espero que alguien pueda aconsejarme, resulta que tengo 1 cadena como:
Anita lava la tina
deseo conocer cuantos caracteres hay de izquierda a derecha antes de la aparicion de un espacio en blanco, esdecir, en este caso deberia obtener 5 caracteres que son los de la palabra Anita los que estan antes del espacio.
Alguien podria aconsejarme sobre como hacer esto?, de antemano muchas gracias

Rosa
24 de Enero del 2006

Hola, prueba con este código:

Private Sub Command1_Click()

If InStr(Text1.Text, " ") > 0 Then
MsgBox Len(Mid(Text1.Text, 1, InStr(1, Text1.Text, " ", vbTextCompare) - 1))
Else
MsgBox Len(Text1.Text)
End If


End Sub