questo è il codice
Private Sub Label1_Click()

Dim X As Long
X = ShellExecute(Me.hwnd, "Open", Label1.Caption, 0&, 0&, 1)
End Sub


da una label sul form cliccando doveva aprirmi la pagina web del sito desiderato
comunque grazie a tutti e a presto