Private Sub Form_Load()
   MsgBox RaizA(14, 2) ' ejemplo1
   MsgBox RaizB(27, 3) ' ejemplo2
End Sub
 
Private Function RaizA(ByVal Radicando As Double, Indice As Double) As Double
    RaizA = Radicando ^ (1 / Indice)
End Function
 
Private Function RaizB(ByVal Radicando As Double, Indice As Double) As Double
    RaizB = Exp((1 / Indice) * Log(Radicando)) 'e elevado a la potencia x
End Function