Sub PrintExample() Dim Msg, Pi ' Declare variables. Let Pi = 4 * _Atn(1) ' Calculate Pi. Msg = "Pi is equal to " & Str(Pi) MsgBox Msg ' Display results. Print Pi ' Prints the results in the compiler messages window End Sub