Ciao..ho capito l'errore ma non dire che in vb non accadeva:
posto il tuo codice con l'errore:
[B]Postato da Amok [\B]
If (controllo = "Vero") Then
MsgBox "Sito web online"
Else
MsgBox "Sito web OFFLINE"
End If
End Sub
L'errore è alla riga "controllo = vero".... Te nella funzione avevi messo controllo = IsValidUrl, che, essendo una funzione Booleana, dà come valori possibili di ritorno True o False. Per correggere inserisci True al posto di vero SENZA le virgolette, altrimenti viene interpretato da visual basic come una stringa, mentre true o false sono valori di funzione.

Spero di essermi spiegato..

ciao