Problem with a web query

Hi,

I am trying to pull information from the web through a web query. The code I have is

Option Explicit
Public Sub exchangerates()
'Declare and set variables
Dim strURL As String
Dim dblToday As Double
Dim dtmFrom As Double
Dim dblMultiplier As Double
Dim dblDayIncrement As Double

dblDayIncrement = 864000000000#
dtmFrom = #4/17/2012#
dblMultiplier = DateDiff("d", dtmFrom, Date) * dblDayIncrement

dblToday = (6.3470304E+17 + dblMultiplier)
dblToday = Format(dblToday, "0")

Worksheets("Sheet1").Activate
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.imf.org/external/np/fin/ert/GUI/Pages/Report.aspx?CU='EUR','JPY','GBP','USD','AUD','BRL','CNY','INR','MXN'&EX=REP&P=DateRange&Fr=634703040000000000&To=" & dblToday & "&CF=Compressed&CUF=Period&DS=Ascending&DT=Blank", _
        Destination:=Range("A1"))
        .Name = "rms_mth.aspx?reportType=REP"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = True
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=True
    End With
End Sub

For some reason when I try to change the dates (only the "to" date) using a variable the query stops working. I have made sure that it is in the correct format and everything too. Can someone help me out here? I have highlighted the variable in the URL

Thanks