Fix Function

YandexLocation.vb

@@ -25,25 +25,33 @@ Module YandexLocation
         End Function
         Private Sub JSONDECODE()
             Dim MyJson As JObject = Json.JsonConvert.DeserializeObject(respone)
+            '[JSON].response.GeoObjectCollection.metaDataProperty.GeocoderResponseMetaData.results
             '[JSON].response.GeoObjectCollection.featureMember.[0].GeoObject.Point.pos
-            Coordinates = MyJson("response")("GeoObjectCollection")("featureMember")(0)("GeoObject")("Point")("pos")
+            If MyJson("response")("GeoObjectCollection")("metaDataProperty")("GeocoderResponseMetaData")("results").ToString = "0" Then
+                Coordinates = Nothing
+            Else
+                Coordinates = MyJson("response")("GeoObjectCollection")("featureMember")(0)("GeoObject")("Point")("pos")
+            End If
         End Sub
 
         Public Function lat()
-            Dim cord As Array = Split(Coordinates, " ")
-            Dim l1 As Double = Convert.ToDouble(cord(1))
-            Return l1
+            If Coordinates IsNot Nothing Then
+                Dim cord As Array = Split(Coordinates, " ")
+                Dim l1 As String = (cord(1))
+                Return l1
+            Else
+                Return ""
+            End If
         End Function
 
         Public Function lng()
-            Dim cord As Array = Split(Coordinates, " ")
-            Dim l1 As Double = Convert.ToDouble(cord(0))
-            Return l1
+            If Coordinates IsNot Nothing Then
+                Dim cord As Array = Split(Coordinates, " ")
+                Dim l1 As String = (cord(0))
+                Return l1
+            Else
+                Return ""
+            End If
         End Function
     End Class
-
-
-    Sub Main()
-        Dim loc As YandexLocatin = New YandexLocatin("4-ый Загородный переулок, дом 20, Минск, Беларусь")
-    End Sub
 End Module