前のスレでも注意されてたが、エラーの内容ってのを書かないと何とも答えられないぞ。
たぶんカレントパスにファイルが無いからエラーになってんだろうけど。

Debug.Print in
Debug.Print App.Path & "\" & in
Debug.Print App.Path & "\INPUTFILE.dat"

と出力して、パス確認してみれ。