Help with math.tan

I am trying to use the math.tan function but it is using the radians as the answer and I need it to use degrees. Here is an example:

My calculator on my computer shows this in degrees

Attachment 94903

My code:
Dim result As Double
result = Tan(40)
lblResult.Text = result

I get this as the answer: -1.1172149309239 which is in radians.

I want degrees, from the calc image.


Thank You
Allen

Attached Images