Probeer mijn webbrowser

Private Sub Text1_KeyPress(KeyAscii As Integer)
   
  If KeyAscii = 13 Then
     
WebBrowser1.Navigate (Text1.Text)


  End If
   
End Sub

    Public Sub goToSite(ByVal url As String)
        On Error GoTo Hell

        barNavigate.Value = 0
        Dim acceptSize, foundExt, foundProtoc, isHttp, isHttps, isFtp As Boolean
        Dim fullUrl As String = url

        'size
        acceptSize = url.Length >= 3 And url.Length <= 150
        If Not acceptSize Then GoTo Hell

        'protocol
        isHttp = Mid(url, 1, 7) = "http://"
        isHttps = Mid(url, 1, 8) = "https://"
        isFtp = Mid(url, 1, 6) = "ftp://"
        foundProtoc = isHttp Or isHttps Or isFtp

        If Not foundProtoc Then fullUrl = "http://" & fullUrl
        If isHttp Then url = url.Substring(7)
        If isHttps Then url = url.Substring(8)
        If isFtp Then url = url.Substring(6)

        'extension
        foundExt = Mid(url, (url.Length - 3), 1) = "." Or Mid(url, (url.Length - 2), 1) = "."

        If Not foundExt Then
            Dim i As Integer
            For i = 0 To url.Length - 1
                If url.Substring(i, 1) = "/" Or url.Substring(i, 1) = "?" _
                Then foundExt = True
            Next i
        End If

        If Not foundExt Then fullUrl = fullUrl & ".com"

        'go there
        myWin.Navigate(fullUrl)

Hell:
        If Err.Number <> 0 Then tsCbUrl.Text = "url incorrect"
    End Sub