You have it backwards. You don't add anything to their code. Just copy/paste it into a standard module. Then your code calls theirs:
Code:
Dim strFilter As String
Dim strInputFileName As String
strFilter = ahtAddFilterItem(strFilter, "Text Files (*.txt)", "*.txt")
strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an input file...", _
Flags:=ahtOFN_HIDEREADONLY)
DoCmd.TransferText acImportDelim, "KBASE Import Specification", "KBASE", strInputFileName, False, ""