Macro to include date variable SOLVED

Okay everyone I have a project I am attempting to write a macro for.... Everyday I run a process that creates a file the file name is consistent except for the fact that it adds the date to the end of the file name... So here is my issue I want to write a macro to automatically import the file without the having to pick wich file to import. I want the macro to know to look for the file with todays current date. It will be the only file in the folder I want the macro to grab the file from... I am not sure if this can even be done. Any advice/help would be greatly apprecaited. I have been working on this for a month and have not gotten very far at all. I am extremely new to macros. I am including the template which I want the file imported. As well as the code I have so far.. everytime I try to run the macro I get a runtime error 450.

The file name will look as such HNBRMT_AGENCY_112812.txt as mentioned before the only thing that changes in the file name is the date at the end. It will always have the current date at the end of the file.

Sub Import_test()

Dim filename As String
filename = ("C:/Data/HNBRMT_AGENCY_Format$Date,mmddyy")
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:Data/HNBRMT_AGENCY_Format$Date,mmddyy.txt") & filename & ",Destination:=(A11)"

        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

I hope I have explained this well enough!!

Dim IsToday As String
IsToday = Format(Now, "mmddyy")

filename = "C:/Data/HNBRMT_AGENCY_" & IsToday

Please post the latest version of your macro. The query.add line looks wrong, you have the file/path twice and you have: Destination:=(A11)
which should be: Destination:=Range("A1")
Also, I have some doubts about the parentheses and quotation marks.

Try this one:

Option Explicit

Sub IMPORT_1()
Dim IsToday As String, _
    FileName As String
    
IsToday = Format(Now, "mmddyy")
FileName = "C:/Data/HNBRMT_AGENCY_" & IsToday

With ActiveSheet.QueryTables.Add _
        (Connection:=FileName, _
         Destination:=Range("A11"))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

I noticed a couple of mistakes I left out (red). If that doesn't correct the problem you should post a new question.

Option Explicit
Sub IMPORT_1()
    Dim IsToday As String, _
    FileName As String
    
    IsToday = Format(Now, "mmddyy")
    FileName = "C:\Data\HNBRMT_AGENCY_" & IsToday & ".txt"

    With ActiveSheet.QueryTables.Add _
        (Connection:="TEXT;" & FileName, _
         Destination:=Range("A11"))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub