Checker Function

Public Function checker(ByVal username As String) As Object
            Dim obj As Object
            Dim result As Object
            Try
                Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://i.instagram.com/accounts/web_create_ajax/"), HttpWebRequest)
                Dim s As String = "email=&password=&username=" + username + "&first_name="
                Dim bytes As Byte() = Encoding.UTF8.GetBytes(s)
                httpWebRequest.Method = "POST"
                httpWebRequest.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
                httpWebRequest.UserAgent = "Instagram 8.2.0 Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)"
                httpWebRequest.Headers.Add("X-CSRFToken", "pmVVrIms8Du1cV0Lo5iPFmMGZCEBz8KI")
                httpWebRequest.Headers.Add("X-Instagram-AJAX", "1")
                httpWebRequest.Headers.Add("Accept-Encoding: gzip, deflate")
                httpWebRequest.Headers.Add("Accept-Language: ar-SA;q=1, en-SA;q=0.9")
                httpWebRequest.Headers.Add("Accept: */*")
                httpWebRequest.Headers.Add("X-Requested-With", "XMLHttpRequest")
                httpWebRequest.Referer = "https://i.instagram.com/accounts/login/ajax/"
                httpWebRequest.ContentLength = CLng(bytes.Length)
                Dim requestStream As Stream = httpWebRequest.GetRequestStream()
                requestStream.Write(bytes, 0, bytes.Length)
                requestStream.Close()
                Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
                Dim text As String = New StreamReader(httpWebResponse.GetResponseStream()).ReadToEnd()
                obj = (text.Contains("ok") And Not text.Contains("username"))
            Catch expr_119 As Exception
                ProjectData.SetProjectError(expr_119)
                Dim projectError As Exception = expr_119
                ProjectData.SetProjectError(projectError)
                obj = False
                ProjectData.ClearProjectError()
                result = obj
                ProjectData.ClearProjectError()
                Return result
            End Try
            result = obj
            Return result
        End Function