As informações estão separadas ou em uma única linha?
Normamente eu faço assim =right(A2;find("(";A2;1)) agora que vem o segredo, antes do último parentesis, eu coloco operadores matemáticos para localizar a posição do ")" e depois me acha "X" espaços e retorna o valor BPS.

thelol, obrigado pela resposta mas o código não funcionou, inclusive não entendi a sintaxe dele.

Os dados estarão em uma mésma célula inclusive, pense que é um texto. Mas ao invés de mandar procurar na planilha toda, vou colocar uma combobox selecionável, que irá rebater esses valores para uma texbox, dessa maneira creio eu que fique mais fácil.

Só preciso saber se tem um comando que procure dentro de um campo, e retorne um outro valor.

( O pensamento lógico que preciso é basicamente o seguinte: procurar o termo "(", onde começa o código, e retornar os 3 próximos valores após esse termo, que será justamente o código. )

Algum comando tem essa função?

A Function abaixo foi criada por Alexandre Neves em 2011-12-28 no fórum MaximoAccess, pena que não tenho mais o link, depois pesquiso, na época adaptei para algo parecido, a function completa tinha outros parametros.

Private Sub CommandButton1_Click()
    Dim sTexto As Variant
    Dim texto As Variant

    texto = TextBox1.Text

    sTexto = ExtrairTexto(texto)
    
    TextBox2.Text = sTexto
    
End Sub

Private Function ExtrairTexto(str As Variant) As String
    Dim Inicio As Integer
    Dim Fim As Integer
    
    Inicio = InStr(1, str, "(") + 2
    Fim = InStr(Inicio, str, " )")
    
    ExtrairTexto = Mid(str, Inicio, Fim - Inicio)

End Function

[]s

Mauro! Pelo que estou lendo é exatamente o que estou precisando! Obrigado desde já, estou no meu horário de almoço, assim que voltar ao escritório, testo e dou retorno!

Mauro, estou tentando usar o comando que você postou mais retorna o seguinte erro: Argumento ou chamada de execução inválida,

e sublinha a seguinte linha:

ExtrairTexto = Mid(str, Inicio, Fim - Inicio)

Alguma idéia? eu copiei exatamente como você mandou, só renomeei os campos para os campos que utilizo.

No meu projeto está assim:

Private Sub CommandButton4_Click()
Dim sTexto As Variant
Dim texto As Variant

texto = ComboBox2.Text

sTexto = ExtrairTexto(texto)

TextBox30.Text = sTexto
End Sub
Private Function ExtrairTexto(str As Variant) As String

Dim Inicio As Integer
Dim Fim As Integer

Inicio = InStr(1, str, "(") + 2
Fim = InStr(Inicio, str, " )")
ExtrairTexto = Mid(str, Inicio, Fim - Inicio)

End Function

arthur, vou me basear pelas instruções colocadas no CommandButton4, como não sei os procedimentos até chegar o momento de eu acionar este Botão, eu arrisco o palpite que o problema é a intrução :

texto = ComboBox2.Text

Pelo erro, indica que o Combo está vazio.

[]s

hmm, estranho, vou tentar explicar o que procede.

Este combobox possui um rowsource para minha database, que inclui todos os aeroportos do mundo, ele só está no local para facilitar ao colocar os dados.

O mais estranho é que me certifiquei de preencher o combo para efetuar o teste, deixe eu conferir somente um fator que agora me veio a cabeça...

Mauro, creio que agora vou conseguir resolver, sua ajuda me clareou!

Este combobox está dentro de um multipage, e por eu ter ocultado as tabs havia me esquecido...

Creio eu se colocar Multipage.combobox2 agora vai dar certo, vou efetuar o teste!

Não obtive sucesso, testei usando multipage, e testei inclusive criando uma nova textbox ao lado do button e da textbox de destino, continua dando o mesmo erro e sublinhando a seguinte linha:

ExtrairTexto = Mid(str, Inicio, Fim - Inicio)

O codigo postado pelo colega Mauro, parte do principio que logo após o "(" há um campo em branco e que antes do ")" tambem existe esse espaço.
Se está dando erro e por não achar " )", entao altere na função as linhas conforme abaixo:

Inicio = InStr(1, str, "(") + 1
Fim = InStr(Inicio, str, ")")

Muitíssimo obrigado ao amigo Mauro pelo código inicial e ao amigo Reinaldo pela correção, eu estava pensando que fosse algo acerca do que o reinaldo falou, mais preferi nao mecher no código por falta de experiência!

Muitíssimo obrigado a ambos! funcionando perfeitamente agora!