Workbooks.OpenText App.Path & "\valore unitario cos4 17.03.2003.txt"

così funzia...ma perchè ci scrivi FileName:= che tanto non serve???