CAPTURANDO DETERMINADO TEXTO DE UMA LINHA

    [ô]Declarando
    Dim intSelecao_Quantidade As Integer, intImportacao_Item As Integer, intLinha As Integer
    Dim strImportacao_Arquivo As String, strImportacao_Linha As String
    Dim varImportacao_Campos() As Variant, varImportacao_Bloco As Variant, varImportacao_Item As Variant
    Dim varImportacao_Delimitador As Variant, varImportacao_Registro As Variant, varLinha As Variant, varLinhaAtual As Variant

    ReDim varImportacao_Campos(3)
    lngImportacao_Livre = FreeFile
    [ô]Abrindo Arquivo strImportacao_Aquivo que é uma String
    Open strImportacao_Arquivo For Input As #lngImportacao_Livre
   [ô]Enquanto Houver Linhas ele ira ler
     While Not EOF(lngImportacao_Livre)
        
        Line Input #lngImportacao_Livre, strImportacao_Linha
        varImportacao_Bloco = Split(strImportacao_Linha, varImportacao_Delimitador)
        intImportacao_Item = 0
        For Each varImportacao_Item In varImportacao_Bloco
            
            intImportacao_Item = intImportacao_Item + 1
            If intImportacao_Item <= 3 Then varImportacao_Campos(intImportacao_Item) = varImportacao_Item
            
        Next
    Wend
    Close #lngImportacao_Livre
    [ô]Dentro do While ele ira ler uma Linha por vez, por isso coloque as ação que ele ira tomar a cada linha dentro do While...
 

[txt-color=#74DF00][ô]Definição das Variaveis[/txt-color]
Dim vlTexto As String
Dim vlPos1 As Integer
Dim vlPos2 As Integer
Dim vlResultado As String

[txt-color=#5FB404][ô]Texto a ser comparado[/txt-color]
vlTexto = [Ô][nome] bla bla bla bla bla bla bla bla bla bla bla1[endereco] bla bla bla bla bla bla bla2[cep] bla bla bl bla bla bla3[Ô]

[txt-color=#4B8A08][ô]pega a posição que inicia a tag nome[/txt-color]
vlPos1 = InStr(1, vlTexto, [Ô][Nome][Ô])
[txt-color=#4B8A08][ô]pega a posição que inicia a tag endereço[/txt-color]
vlPos2 = InStr(1, vlTexto, [Ô][endereco][Ô])
[txt-color=#4B8A08][ô]Pega o texto da posição inicial da tag nome até a posição inicial da tag endereço - 1 e salva em um variavel[/txt-color]
vlResultado = Mid(vlTexto, vlPos1 + 1, vlPos2 - 1)

[txt-color=#4B8A08][ô]pega a posição que inicia a tag cep[/txt-color]
vlPos1 = InStr(1, vlTexto, [Ô][cep][Ô])
[txt-color=#4B8A08][ô]Salva o conteudo a partir da tag cep até o final do texto[/txt-color]
vlResultado = vlResultado & Mid(vlTexto, InStr(1, vlTexto, [Ô][cep][Ô]), Len(vlTexto))

MsgBox vlResultado