Dim strFilter As String
Dim varFilePath As Variant

strFilter = ahtAddFilterItem(strFilter, "Text Files (*.txt)", "*.txt")
strFilter = ahtAddFilterItem(strFilter, "All Files (*.*)", "*.*")
varFilePath = ahtCommonFileOpenSave( _
	Filter:=strFilter, OpenFile:=True, _
	DialogTitle:="Choose the file to be imported")

If Not IsNull(varFilePath) Then
	Me!txtFilePath = varFilePath
End If