formel til at regne vinkelen ud

Hej eksperter
Jeg har en formel til at regne vinkelen ud.
Trode jeg, den virker ikke.
Den ser sådan ud

Private Sub Command2_Click()
Dim A As Double
Dim B As Double
Dim X As Double

A = InputBox("Intast længde A i mm")
A = A * (180 / 3.14159265358979)
B = InputBox("Intast længde B i mm")
B = B * (180 / 3.14159265358979)
X = Tan(A / B)
MsgBox "resultet er " & X
End Sub

jeg ved i excel regneark skal den se sådan ud
=(180/pi())*ArcTan(A1/B1)
hvordan kan jeg lave den om så jeg kan bruge den i vb6

mvh

mvhansen