If newChar = Chr(13) Then // \n end of line
Me.Print ""  'skip a line
Else
NewChar = NewChar & MSComm1.Input
End If