Para calcular a raiz quadrada em VBA Excel, você pode usar a função SQR. Veja abaixo um exemplo:
Sub raizquadrada()
Dim x As Double
x = 25 'valor para calcular a raiz quadrada
MsgBox Sqr(x) 'exibe a raiz quadrada do valor definido
End Sub
Neste exemplo, o valor definido é 25 e a raiz quadrada é exibida em uma mensagem de caixa de diálogo usando a função Sqr. Você pode alterar o valor de x para calcular a raiz quadrada de outro número.