Data Type VisualBasic Script

Sub AtnDemo()
    Dim pi As Double
    pi = 4 * Atn(1)
End Sub