Public Sub VBLinkerUnitsSample()
    'Link together a stand-alone version of the Units Class.

    Debug.Print VBLinker( _
        vSeparator:="|", _
        vLibraryFilesList:="\Entisoft\Tools\*.Bas|\Entisoft\Tools\*.Cls", _
        vIncludeFileOrSubPattern:="Units.Cls", _
        vRemoveLinesLike:="Option Explicit|Public est?? As New *", _
        vRemoveStringsLike:="est??.", _
        vAddModuleHeader:="Option Explicit", _
        vStripComments:=True, _
        vOutputDestination:="File", _
        vToFileOrDirectory:="C:\Windows\Temp\Units.Txt" _
        )

End Sub