Sub Routine

Sub CubeRoot()

    Num = InputBox("Enter a Positive number")

    MsgBox Num ^ (1 / 3) & " is the cube root."

End Sub