Example - CurDir Function

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