[aboualhgag]

Dim A, C As Decimal
A = 16
C = A ^ (1 / 2)
MsgBox(C)