added this to the vb program to poll the serial port input gave it a 235ms interval

Private Sub Timer1_Timer()
oldlogtext = SERIALINLOG.Text

serinput = MSComm1.Input
SERIALINLOG.Text = "Incoming Data: " + serinput + vbCrLf + oldlogtext

End Sub