VBA'de bir sayının karekökünü hesaplamak için "Sqr" metodu kullanılır. Aşağıdaki kod örneği, kullanıcı tarafından girilen bir sayının karekökünü hesaplamayı gösterir..

Sub Karekok_Hesapla()

   Dim girilenSayi As Double
   Dim karekok As Double

   girilenSayi = InputBox("Bir sayı girin:")
   karekok = Sqr(girilenSayi)

   MsgBox "Girilen sayının karekökü: " & karekok

End Sub

Bu kod örneğinde, Sub anahtar kelimesi ile bir alt-procedure oluşturulur ve Karekok_Hesapla ismi verilir. Daha sonra, Dim anahtar kelimesi ile iki adet değişken tanımlanır: girilenSayi ve karekok.

InputBox fonksiyonu, kullanıcıdan bir sayı girmesini sağlar ve bu sayı girilenSayi değişkenine atanır. Sqr fonksiyonu, verilen sayının karekökünü hesaplamak için kullanılır ve sonuç karekok değişkenine atanır. Son olarak, MsgBox fonksiyonu ile kullanıcıya hesaplanan karekök değeri gösterilir.