Example:

  1. Sub Main ()

    1. Dim Msg, Num' Declare variables.

      Num = InputBox("Enter a number.")          ' Get user input.

      Msg = Num & " decimal is &O"

      Msg = Msg & Oct(Num) & " in octal notation."

      MsgBox Msg' Display results.

    End Sub