Public Class jsonResponse
			Private _data() As data
			Public Property data() As data()
				Get
					Return _data
				End Get
				Set(ByVal value As data())
					_data = value
				End Set
			End Property
		End Class
		Public Class data
		...
		End Class
		Public jsonData As New jsonResponse
		Public Function jsonFetch(ByVal URL As String, ByVal crawlAgent As String, ByVal crawlMethod As String) As String
			Dim buffSize As Integer = 2048
			Dim crawlOutput As String = String.Empty
			Dim crawlError As String = String.Empty
			Try
				Dim myRequest As HttpWebRequest = CType(WebRequest.Create(URL), HttpWebRequest)
				myRequest.UserAgent = crawlAgent
				myRequest.Method = crawlMethod
				Dim myResponse As HttpWebResponse = CType(myRequest.GetResponse(), HttpWebResponse)
				Dim streamResponse As Stream = myResponse.GetResponseStream()
				Dim streamRead As New StreamReader(streamResponse)
				Dim readBuff(buffSize) As [Char]
				Dim lineStep As Integer = streamRead.Read(readBuff, 0, buffSize)
				While lineStep > 0
					Dim outputData As New [String](readBuff, 0, lineStep)
					crawlOutput = crawlOutput & outputData
					lineStep = streamRead.Read(readBuff, 0, buffSize)
				End While
				streamRead.Close()
				streamResponse.Close()
				myResponse.Close()
			Catch ex As Exception
				crawlError = "[ERROR 2] " & ex.Message.ToString()
			End Try
			if crawlError.length = 0 Then
				crawlError = "success"
				crawlOutput = crawlOutput.Replace(""""":", """unknown"":")
				Try
					Dim jsonDeserializer As New System.Web.Script.Serialization.JavaScriptSerializer
					jsonData = jsonDeserializer.Deserialize(Of jsonResponse)(crawlOutput)
				Catch exb As Exception
					crawlError = "[ERROR 3] " & exb.Message.ToString()
				End Try
			End if
			Return (crawlError)
    		End Function