'*********************************************************************
'*                      CommEvents                                   *
'*********************************************************************
Private Sub MSComm1_OnComm()
Dim GPSData As String
  Select Case MSComm1.CommEvent
    Case comEvReceive:
                    GPSData = MSComm1.Input
                    Text3.Text = Text3.Text + GPSData
                    Call HandleGPSInput(GPSData)
  End Select
End Sub
'*************************************************************************
'*                       HandleGPSInput                                  *
'*************************************************************************
Sub HandleGPSInput(GPSData As String)
    Dim UTCTime As String
    Dim Output As String
 
    Output = Split(GPSData, ".GPRMC")(0)
    UTCTime = Mid(Output, 1, 8)
    Longitude = Mid(Output, 13, 19)
    Latitude = Mid(Output, 23, 29)
    Text1 = Text1 + UTCTime