salve sto cercando un modo per validare un url inserito in un form nella modalità "http://www.miosito.it"

sono arrivato fin qui:
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "(\b(http\://\.|www)\S+\.[a-z]{2}\b)"

dove l'ultima riga credo che sia errata in quanto mi valida url del tipo
hp://www.miosito.it oppure http://www.miosito.miosito.it , mi blocca solo stringhe "banali"

come dovrei migliorare la riga in questione?
grazie
ciauz