If ReadData.StartsWith("$GNGLL") Then
Dim parts() As String = Regex.Split(",", ReadData)
Dim Time As String = parts(5)
Dim hours As String = Time.SubString2(0, 2)
Dim minutes As String = Time.SubString2(2, 4)
Dim seconds As String = Time.SubString2(4, 6)
Label2.Text = hours & ":" & minutes & ":" & seconds
End If