Bien... eso que tu quieres se puede hacer con la funcion InStr... Aqui esta un codigo de ejemplo... para usarlo crea un nuevo proyecto Exe estandar, insertale un control CommandButton, copea el siguiente codigo y pegalo en la seccion (General) (Declaraciones) del Form... ejecutalo...
Private Sub Command1_Click()
Dim Caracter As String
Dim Cadena As String
Dim PosicionDeCaracter As Integer
Cadena = "Esta es la cadena Donde buscaras un caracter"
Caracter = "d" 'Buscar este caracter, puede ser otra cadena tambien como "donde"
'Una comparación textual que comienza en la posición 1
PosicionDeCaracter = InStr(1, Cadena, Caracter, vbTextCompare)
MsgBox "El caracter ""d"" esta en la posicion: " & PosicionDeCaracter, vbInformation
Caracter = "Donde" 'Busca esta cadena
'Una comparación binaria que comienza en la posición 5
PosicionDeCaracter = InStr(5, Cadena, Caracter, vbBinaryCompare)
MsgBox "La cadena ""Donde"" esta en la posicion: " & PosicionDeCaracter, vbInformation
Caracter = "z" 'Buscar este caracter
'Una comparación textual que comienza en la posición 2
PosicionDeCaracter = InStr(2, Cadena, Caracter, vbTextCompare)
MsgBox "El caracter ""z"" esta en la posicion: " & PosicionDeCaracter, vbInformation 'Como no esta devuelve 0 (Cero)
End Sub
Bien... pues ahi esta... es todo tuyo.... (Probado en VB5)...
Bye...
