Função InStr

Retorna a posição de uma string dentro de outra.

A função Instr retorna a posição na qual a cadeia correspondente foi encontrada. Se a cadeia de caracteres não tiver sido encontrada, a função retornará 0.

Sintaxe:

InStr ([Start As Long,] Text1 As String, Text2 As String[, Compare])

Valor de retorno:

Integer

Parâmetros:

Start: Expressão numérica que marca a posição em uma string onde deve ter início a pesquisa na substring especificada. Se você omitir esse parâmetro, a pesquisa será iniciada no primeiro caractere da string. O valor máximo permitido é 65535.

Text1: a expressão da cadeia de caracteres que você deseja pesquisar.

Text2: a expressão da cadeia de caracteres pela qual você deseja procurar.

Compare:Expressão numérica opcional que define o tipo de comparação. O valor desse parâmetro pode ser 0 ou 1. O valor padrão 1 especifica uma comparação de texto que não faz distinção entre maiúsculas e minúsculas. O valor 0 especifica uma comparação binária que faz distinção entre maiúsculas e minúsculas.

Para evitar um erro em tempo de execução, não defina o parâmetro Compare quando o primeiro parâmetro de retorno tiver sido omitido.

Exemplo:

Sub ExamplePosition

Dim sInput As String

Dim iPos As Integer

    sInput = "Office"

    iPos = Instr(sInput,"c")

    Print iPos

End Sub