create MS Excel macro to import fixed length text file

I need a macro to run on some .txt files that will import the fixed length data into the appropriate columns. There are 31 fixed length positions that need to be imported for a total of 500 characters. (field1= 1-40, field2= 41-70, etc.)