Esta es una buena alternativa a la función tradicional InStr de VB.

Código:

Public Function aInStr(A As Long, B As String, C As String) As Long
On Error Resume Next

'========================================================'
' AX: aInStr                                            '
' Uso: Call aInStr(Inicio, Cadena 1, Cadena 2)          '
'                          '
'========================================================'

Dim F As String
Dim G As String
Dim H As String
Dim X As Long

H = Right(B, Len(B) - 1)

For X = A To Len(B)
F = Mid(H, X - 1, Len(C))
If F = C Then aInStr = X: GoTo Z
Next X

Z:
End Function

Modo de Uso:

Código:

Call aInStr(Inicio, Cadena 1, Cadena 2)

[Tienes que estar registrado y conectado para ver este vínculo]

Saludos.