printf ("This table shows all data collected in one dayn");

Does printf work in VB? That's C isn't it?

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

'setup comm object
    ' Fire Rx Event Every 1 Byte
MSComm1.RThreshold = 1

' When Inputting Data, Input 2 Bytes at a time
MSComm1.InputLen = 1

' 9600 Baud, No Parity, 8 Data Bits, 1 Stop Bit
MSComm1.Settings = "9600,N,8,1"
' Disable DTR
MSComm1.DTREnable = False
'MSComm1.InputMode = comInputModeText //*****NOTICE THIS IS OUT
' Open COM1
MSComm1.CommPort = 1
MSComm1.PortOpen = True

Public Sub MSComm1_OnComm()
    Dim newChar As String
    Select Case MSComm1.CommEvent
        Case comEvReceive
            newChar = MSComm1.Input
            If newChar = Chr(13) Then // n end of line
                lblData.Caption = CStr(NewChar)
                Me.Print ""  'skip a line
            Else
                NewChar = NewChar & MSComm1.Input
            End If
            ' process other events here
    End Select
End Sub

In my original code snippet rxbuffer was publicly dimensioned as a string. This string was the concatenation of each new char received upto a carriage return. Once the carriage return is received then use the string to change the label caption. I would add each new string to a textbox maybe instead of a label or to a disk file.

I really need more information on what you want the end result to be. Also, what kind of values are you sending from the micro? Hex or ASCII or ... ? They should be ASCII and put the input mode line back in. You should send the information out of the serial port like you would send it to a LCD with the addition of the CR.

Maybe ZIP up your VB project and email it to me via my profile. Unless it's other than VB6.

Jon

If I have a little time I'll try to put something workable together.