SoloCodigo

hola estoy haciendo una aplicacion que debe recibir un archivo de texto por puerto serie y luego guardarlo en un archivo para posteriormente leerlo. el problema que tengo es el siguiente recibo el flujo de caracteres por puerto serie y lo guardo en un textbox, luego cuando evaluo si mscomm.comevent es igual a comEvEOF para verificar si es el final del archivo, y asi poder guardar y posteriormente leer lo recibido, nunca encuetra el fin del archivo. quisiera si alguien puede ayudarme para poder solucionarlo lo antes posible.

el codigo es el siguiente:
Dim archivo As String
Dim lectura As String

Private Sub Form_Load()

archivo = "C:\prueba.txt" 'App.Path + "\Prueba.txt"
MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
    Case comEvReceive
        txtDatosRecibidos.Text = txtDatosRecibidos.Text + MSComm1.Input
    Case comEvEOF
        Call Escribir
        Call Leer
    End Select

End Sub
Private Sub Escribir()

Open archivo For Append As #1
Print #1, txtDatosRecibidos '+ ","
Close

End Sub

Private Sub Leer()

Open archivo For Input As #1
While Not EOF(1)
Line Input #1, lectura
Text2 = Text2 + lectura
Wend
Close

End Sub