Udregning af vinkler med vba

Hej eksperter
Er der en der ved hvordan koden skal se ud hvis man vil lave det
i vba
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 vba

noget ligende

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


mvh

mvhansen