Texto para coluna

boa tarde

Caros colegas

estou com o seguinte problema, trabalho com leitura de seriais estes seriais vem em formato de uma etiqueta com código de barras 2D quando efetua a leitura deste código ele vem da seguinte forma:

N5XMEYXY5 Y544741176X8XX9 Y544741176X8488 Y54474117794676 Y54474117794619 Y54474117794494 Y544741177954XX Y544741177X4246 Y54474117794551 Y544741176X6128 Y54474117591YY8

ai estou precisando que ao fazer a Leitura ele quebre em uma unica coluna da seguinte forma:

N5XMEYXY5 (esse precisaria excluir)
Y544741176X8XX9
Y544741176X8488
Y54474117794676
Y54474117794619
Y54474117794494
Y544741177954XX
Y544741177X4246
Y54474117794551
Y544741176X6128
Y54474117591YY8

desde já agradeço a todos

Código:

'observação:
'propriedade "Comportamento da tecla Enter" do campo, na guia "outra"
'configurado para iniciar nova linha

'variável a nível de módulo
Private booPrimeiro As Boolean

'evento "após atualizar" do campo
Private Sub Texto0_AfterUpdate()

    booPrimeiro = False

End Sub

'evento "ao pressionar tecla" do campo
Private Sub Texto0_KeyPress(KeyAscii As Integer)

    If KeyAscii = vbKeySpace Then

        If Not booPrimeiro Then
            KeyAscii = 0
            Me!Texto0.Value = ""
            booPrimeiro = True
        Else
            KeyAscii = vbKeyReturn
        End If
       
    End If

End Sub

BOA NOITE

damascenoJR

testei seu código e infelizmente ele não funcionou, não sei se fiz correto vou anexar o arquivo para sua analise.

Veja