Example:

  1. Sub Main ()

    1. Dim Answer, Msg, NL          ' Declare variables.

      NL = Chr(10)          ' Define newline.

      CurPath = CurDir()          ' Get current path.

      ChDir "\"

      Msg = "The current directory has been changed to "

      Msg = Msg & CurDir() & NL & NL & "Press OK to change back "

      Msg = Msg & "to your previous default directory."

      Answer = MsgBox(Msg)          ' Get user response.

      ChDir CurPath           ' Change back to user default.

      Msg = "Directory changed back to " & CurPath & "."

      MsgBox Msg          ' Display results.

    End Sub