Função InStr

Devolve a posição de uma cadeia dentro de uma outra cadeia.

A função Instr devolve a posição na qual foi encontrada a correspondência. Se a cadeia não foi encontrada, a função devolve 0.

Sintaxe:

InStr ([Início As Long,] Texto1 As String, Texto2 As String[, Comparar])

Valor de retorno:

Número inteiro

Parâmetros:

Start: A numeric expression that marks the position in a string where the search for the specified substring starts. If you omit this parameter, the search starts at the first character of the string. The minimum allowed value is 1. The maximum allowed value is 2,147,483,648.

Texto1: expressão em caracteres que pretende procurar.

Texto2: expressão em caracteres que pretende procurar.

Comparar: expressão numérica opcional que define o tipo de comparação. O valor deste parâmetro poder ser 0 ou 1. O valor padrão 1 especifica uma comparação de texto e não diferencia maiúsculas de minúsculas. O valor 0 especifica uma comparação binária que diferencia maiúsculas de minúsculas.

Para evitar um erro em tempo de execução, não defina o parâmetro Comparar se o primeiro parâmetro de retorno estiver omisso.

Exemplo:

Sub ExamplePosition
Dim sInput As String
Dim iPos As Integer
    sInput = "Escritório"
    iPos = Instr(sInput,"c")
    Print iPos
End Sub