si lo que quieres es conectarte a internet desde vb prueba esto:_
Necesitas un text y un botón.
aplica lo siguiente:
Private Sub Command1_Click()
Dim Web1 As Variant
'Si no hay ningún texto escrito avisamos al usuario
If Text1.Text = "" Then
MsgBox "Debes indicar una url"
Else
Set Web1 = CreateObject("InternetExplorer.Application")
Web1.Navigate (Text1.Text)
Web1.Visible = True
End If
End Sub
ESPERO QUE SEA ESO LO QUE NECESITAS