Example - CurDir Function
'Declare Function CurDir Lib "NewFuns.dll" () As String
Sub Form_Click ()
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