VBA - Instr

La función InStr devuelve la primera aparición de una cadena dentro de otra cadena. La búsqueda se realiza de izquierda a derecha.

Sintaxis

InStr([start,]string1,string2[,compare])

Descripción de parámetros

  • Start- Un parámetro opcional. Especifica la posición de inicio de la búsqueda. La búsqueda comienza en la primera posición de izquierda a derecha.

  • String1- Un parámetro obligatorio. Cadena a buscar.

  • String2- Un parámetro obligatorio. Cadena en la que se busca String1.

  • Compare- Un parámetro opcional. Especifica la comparación de cadenas que se utilizará. Puede tomar los siguientes valores mencionados.

    • 0 = vbBinaryCompare: realiza una comparación binaria (predeterminado)

    • 1 = vbTextCompare - Realiza una comparación de texto

Ejemplo

Agregue un botón y agregue la siguiente función.

Private Sub Constant_demo_Click() 
   Dim Var As Variant 
   Var = "Microsoft VBScript" 
   MsgBox ("Line 1 : " & InStr(1, Var, "s")) 
   MsgBox ("Line 2 : " & InStr(7, Var, "s")) 
   MsgBox ("Line 3 : " & InStr(1, Var, "f", 1)) 
   MsgBox ("Line 4 : " & InStr(1, Var, "t", 0)) 
   MsgBox ("Line 5 : " & InStr(1, Var, "i")) 
   MsgBox ("Line 6 : " & InStr(7, Var, "i")) 
   MsgBox ("Line 7 : " & InStr(Var, "VB")) 
End Sub

Cuando ejecuta la función anterior, produce la siguiente salida.

Line 1 : 6
Line 2 : 0
Line 3 : 8
Line 4 : 9
Line 5 : 2
Line 6 : 16
Line 7 : 11