Dim points As List
points.Initialize
Dim RawPoints As String = "34.8598741°E 31.9144749°N, 34.8631059°E 31.9165439°N, 34.8628081°E 31.9149610°N, 34.8631059°E 31.9165439°N, 34.8604497°E 31.9166584°N"
For Each rp As String In Regex.Split(",\s*", RawPoints)
points.Add(GisPointToLatLng(rp))
Next
gmap.AddPolyline(points, 5, fx.Colors.Red)
Dim cp As CameraPosition
Dim p As LatLng = GisPointToLatLng("34.8598741°E 31.9144749°N")
cp.Initialize(p.Latitude, p.Longitude, 15)
gmap.MoveCamera(cp)
Private Sub GisPointToLatLng (s As String) As LatLng
Dim m As Matcher = Regex.Matcher("(\d+\.\d+)[^\d]+(\d+\.\d+)", s)
m.Find
Dim ll As LatLng
ll.Initialize(m.Group(2), m.Group(1))
Return ll
End Sub