Example:

1. 'Declare Function CurDir Lib "NewFuns.dll" ()  As String

   Sub Form_Click ()

   1. Dim Msg, NL          ' Declare variables.

      NL = Chr(10)          ' Define newline.

      Msg = "The current directory is: "

      Msg = Msg & NL & CurDir()

      MsgBox Msg ' Display message.

   End Sub