Private Sub Geocode()

formatedgeolatitude = ""

For j = 1 To Len(GPRMClatitude)

Geolatitude = Mid(GPRMClatitude, j, 1)

If Geolatitude = "." Then

Geolatitudeminute = (Mid(GPRMClatitude, j - 2, Len(GPRMClatitude)))

Geolatitudeminuteremainder = (Mid(GPRMClatitude, j + 1, 6))

Geolatitudedegree = (Mid(GPRMClatitude, 1, j - 3))

End If

Next

‘adjustment of data precision

If Len(Geolatitudeminuteremainder) = 4 Then ahes = Double.Parse(Geolatitudeminute) / 600000

If Len(Geolatitudeminuteremiander) = 5 Then ahes = Double.Parse(Geolatitudeminute) / 6000000

Geolatitude = Double.Parse(Geolatitudedegree) + ahes

End Sub