Get data from Text in excel

I want get data from Text in excel by use macro VBA.txt (1.2 KB)

image
image

Please guide me for solve error.