Add specific title to open dialog box

Hello ladies and gentlemen,

I have a procedure that opens a txt file and I was wondering if the open dialog box could have a title indicative of action taking place. It would say in the title for example: "Please choose the database txt extract to load".

Here is the code:

With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & Application.GetOpenFilename("Text Files (*.txt), *.txt") _
        , Destination:=Range("A1"))
        .Name = "dbase"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

Any ideas will be appreciated.

It the 3rd argument in the GetOpenFilename method.

 "TEXT;" & Application.GetOpenFilename("Text Files (*.txt), *.txt",1,"Your Title Here") _