Code:
Function Deg2Rad(dAngle As Double)
    Deg2Rad = dAngle * (Pi / 180)
End Function
...
Code:
Debug.Print Sin(Deg2Rad(45))