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