Sub Main ()
    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