50.333333,6.408333,
50.583333,7.000000,
50.755556,7.991667,
50.800000,8.027778,
51.000000,7.883333,
51.066667,7.966667,

Public Structure LatLon
        Public Lat As Double
        Public Lon As Double
End Structure
 
    Public Function EncodeLatLong(ByVal points As List(Of LatLon)) As String
        Dim plat As Integer = 0
        Dim plng As Integer = 0
        Dim len As Integer = points.Count
 
        Dim encoded_points As New StringBuilder()
 
        For i As Integer = 0 To len - 1
 
            'Round to 5 decimal places and drop the decimal
            Dim late5 As Integer = CInt((points(i).Lat * 100000))
            Dim lnge5 As Integer = CInt((points(i).Lon * 100000))
 
            'encode the differences between the points
            encoded_points.Append(LongLatToString(late5 - plat))
            encoded_points.Append(LongLatToString(lnge5 - plng))
 
            'store the current point
            plat = late5
            plng = lnge5
        Next
 
        Return encoded_points.ToString()
 
    End Function
 
    Public Function LongLatToString(ByVal lat As Double) As String
        Try
            Dim i As Integer = lat '* 100000
            Dim b() As Byte = BitConverter.GetBytes(i)
            Return Convert.ToBase64String(b)
 
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
 
        Return "0"
 
    End Function

dc1MAA==QccJAA==qGEAAA==H+cAAA==R0MAAA==X4MBAA==XBEAAA==