Visual Basic - ayuda urgente

buenas, necesito ayuda con una aplicacion: debo capturar por medio del puerto serial, una serie de cadenas que estan separadas por un punto, y despues debo escribirlas en líneas separadas en un textbox para guardarlas en un archivo. La captura y la escritura en el textbox y en el archivo ya los tengo, pero no logro escribirlas en lineas separadas mas que la primera vez, aui esta el codigo que tengo:

Private Sub Command1_Click()
Open "c:\mesero.xls" For Append As #1
Print #1, Text1.Text
Close #1
End Sub

Private Sub Command2_Click()
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
Label1.Caption = " Puerto Abierto"
Else
MSComm1.PortOpen = False
Label1.Caption = " Puerto Cerrado"
End If

End Sub

Private Sub Form_Load()

MSComm1.RThreshold = 2
MSComm1.InputLen = 2
MSComm1.Settings = "9600,N,8,1"
MSComm1.DTREnable = False
MSComm1.CommPort = 2
Label1.Caption = " Puerto Cerrado"
End Sub

Private Sub MSComm1_OnComm()
Dim contador As Integer
Dim buffer As Variant
If Text1.Text = "" Then
contador = 0
End If
Select Case MSComm1.CommEvent
Case comEvReceive
buffer = MSComm1.Input
Text1.Text = Text1.Text & buffer
End Select
If Mid(Text1.Text, 1 + InStr(1 + contador, Text1.Text, "."), 1) = 0 Then
contador = Len(Text1.Text)
Text1.Text = Text1.Text & Chr(13) & Chr(10)
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub

solo logro escribir bien la primera línea, despues la condicion del if es como si no la revisara y se incrementa siempre, lo que escribe el caracter de cambio de linea cada caracter

agradezco cualquier ayuda