Workbooks.OpenText Error

Sub Macro1()
'
' Macro1 Macro
'

'
    ChDir "C:\Users\jk514d\Desktop"
    Workbooks.OpenText Filename:="C:\Users\jk514d\Desktop\temp1.bdf", Origin:= _
        437, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
        Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
        , 1), Array(4, 1)), TrailingMinusNumbers:=True
End Sub

Just so we're clear, that was the marcro, the only thing I changed was the way it gets the path to the file....