ordenar texto no txt

Pessoal boa tarde, mais uma vez eu precisando de ajuda

é o seguinte

tenho um arquivo de texto que se apresenta:

30 de set 14:10 - cheguei
agua
banana
coelho
dinheiro
30 de set 14:10 - teste
tese
xuxu
30 de set 14:10 - olá
manga
abacate
pera


gostaria de ordena-lo da seguinte forma, unindo as linhas eu uma só até a próxima data, com o resultado:

30 de set 14:10 - cheguei agua banana coelho dinheiro
30 de set 14:10 - teste tese xuxu
30 de set 14:10 - olá manga abacate pera

estou tentando usar o seguinte código:

Private Sub Comando2_Click()

Dim strLinha1 As String
Dim strLinha2 As String
Dim strlinha3 As String
Dim guia As String
Dim guia2 As String
Dim strLinhaUnica As String
Dim flag As String


Open "C:\pasta_wa\tratando.txt" For Input As #1
Open "C:\pasta_wa\resultado.txt" For Output As #2

flag = "a"

Do While Not EOF(1) And flag = "a"

Line Input #1, strLinha1

If Mid(strLinha1, 3, 4) Like " de " Then

guia = strLinha1

Else

               If Not EOF(1) Then
               
               Line Input #1, strLinha2
               
               If Mid(strLinha1, 3, 4) Like " de " Then
               
               guia = strLinha2
                           
               flag = "b"
               
               Else
           
               guia = ""

               End If
               
               

               End If
               
             

End If
                           
strlinha3 = guia & strLinha1 & strLinha2

Loop

strLinhaUnica = strlinha3

Print #2, strLinhaUnica

Close #1
Close #2

End Sub


o resultado esta imprimindo: peraabacate

alguem pode me ajudar?

obrigado

Sanches

Se entendi, teu problema é resolvido assim:


strlinha3 = guia & " " & strLinha1 & " " & strLinha2

Dentro das aspas duplas tem um espaço que irá separar as palavras.

Pode usar o traço também " - "



Abraços

Nb

Caro Noobezinho

agradeço o retorno...

strlinha3 = guia & " " & strLinha1 & " " & strLinha2

me ajudará.. porem o problema é na sequencia da leitura das linhas e no seu armazenamento...