Received Com Port data in ununiform format

Private Sub cmdConnect_Click()
If cmdConnect.Caption = "Connect  Machine" Then
    Dim str As String
    str = Combo1.Text
    Dim i As Integer, j As String
    i = Mid(str, 4, 1)
    MSComm1.CommPort = i

        MSComm1.PortOpen = False
        MSComm1.PortOpen = True
        MsgBox "Communication Created Successfully"
        MSComm1.Settings = "9600,N,8,1"
        MSComm1.Output = "0" + Chr(13)
        MSComm1.DTREnable = True
        MSComm1.Handshaking = 1
        MSComm1.NullDiscard = True
        MSComm1.RTSEnable = True
        MSComm1.EOFEnable = True
        MSComm1.RThreshold = 12
        MSComm1.SThreshold = 1
        MSComm1.InputMode = comInputModeText 
        cmdConnect.BackColor = &HC0&
        cmdConnect.Caption = "Disconnect Machine"

     <pre>Dim str As String, res As Variant, com As String, txt As String, i As Integer
'MSComm1.Settings = "9600,N,8,1"
'MSComm1.Output = "0" + Chr(13)
MSComm1.DTREnable = True
MSComm1.Handshaking = 1
MSComm1.NullDiscard = True
MSComm1.RTSEnable = True
MSComm1.EOFEnable = True
MSComm1.RThreshold = 15
MSComm1.SThreshold = 1
'MSComm1.InputLen = 4
MSComm1.InputMode = comInputModeText
Select Case MSComm1.CommEvent
  Case comEvReceive

          txtDisplay.Text = ""
      Do While MSComm1.InBufferCount > 0
             'txtDisplay.Text = txtDisplay.Text + Chr(13) + MSComm1.Input
              txtDisplay.Text = txtDisplay.Text + vbNewLine + MSComm1.Input
      Loop
      If OptAuto.Value = True Then
            ReportPrint
      ElseIf OptManu.Value = True Then
            cmdPrint.Visible = True
      End If
  Case Is > 1000
      MsgBox "Unknown Weight"
End Select

0001.600013660S