Pesquisa por um padrão em uma string

Question

Amigos boa tarde.

Guardo em uma string um texto que pode variar de tamanho. Preciso realizar uma pesquisa nessa string por um número especifico, esse número começa sempre com "45" e possui 10 caracteres. Depois de encontrar, tenho que passar o valor encontrado para uma célula especifica. 

É possível?

Grato.

Answer 1

Sim, é o primeiro 45 que ele encotrar. 

Joguei no compilador esse seu código, e não funcionou, poderia explicar melhor?

Obrigado.

Answer 2

@Artur,

Este fórum é de VBA.

@Pedro,

Sub Main()
    Dim Frase As String
    Dim Pos As Long
    Dim Palavra As String
    
    Frase = "Teste45abcdefghTeste"
    Pos = InStr(Frase, "45")
    If Pos > 0 Then
        Palavra = Mid(Frase, Pos, 10)
        MsgBox Palavra, vbInformation
    Else
        MsgBox "Não foi encontrada nenhuma expressão que começa com 45 na frase.", vbExclamation
    End If
End Sub

---

http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG