Hent html

Hvorfor virker dette ikke

Private Sub findside_Click()
    inet1.AccessType = icUseDefault
    Dim b As string
    Dim strURL As String
    strURL = url.Text
    b = inet1.OpenURL(strURL, icByteArray)

    html.Text = b

End Sub

Mvh
Anders Lund