ola

blz

gostaria saber se alguem pode me ajudar dizendo como pesquiso um terteminado caracter em uma variavel

desde ja agradeco

diogo

Diogo vc pode utilizar assim:

Dim Letra, Var As String
Dim N, Num As Integer
Letra = Text1 'caracter a ser pesquisada

Var = Text2 'variável
Num = Len(Trim(Var))
N = 1
For N = 1 To Num
    If Mid(Var, N, 1) = Letra Then
           MsgBox "O caracter " & "' " & Letra & " '" & " está na posição " & N & ", da palavra: " & Var & " !"
           GoTo palavra
    End If
Next
MsgBox " Caracter não encontrado!"
palavra:
Exit Sub

 

Diogo é uma ídeia aí vc pode usar ou modificar de acordo com suas necessidades e não se esqueça que o VB diferencia r de R ele é case sensitive.

 

Espero ter ajudado

 

T+

 

Diogo, boa tarde..

 

     Acho que a função   InStr resolve seu problema

     Ela retorna a posição que achou uma expresão em outra. Se retornar O (zero) não existe.

 

 Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare])
    Member of VBA.Strings
    Returns the position of the Min occurrence of one string within another

Private Sub Command1_Click()
    Dim Frase As String
    Dim Posicao As Integer
    Dim Caracter As String
   
    Caracter = "d"
   Frase = "Exemplo de achar um determinado caracter na frase"
            'quero achar o 1º D, que nesse caso e D de DE

   Posicao = InStr(1, Frase, Caracter)
   Caracter = Mid$(Frase, Posicao - 1, 2) + Empty
   MsgBox "O caracter [ " & Caracter & " ] foi encontrado na posição [ " & Posicao & " ] na frase " & Frase
End Sub

agradeço a ajuda de voces valeuuu mesmo