Example - Atn Function

Sub Main ()
    Dim Msg, Pi ' Declare variables.
    Pi = 4 * Atn(1) ' Calculate Pi.
    Msg = "Pi is equal to " & Str(Pi)
    MsgBox Msg ' Display results.
End Sub