La funzione è Sqr(valore), dove valore deve essere di tipo double.
Gli esempi qui sotto li ho presi dall'MSDN.

Ciao
Vinz

Dim MySqr
MySqr = Sqr(4) ' Restituisce 2.
MySqr = Sqr(23) ' Restituisce 4,79583152331272.
MySqr = Sqr(0) ' Restituisce 0.
MySqr = Sqr(-4) ' Genera un errore di run-time.