the line

.Filter = " txt(*.txt)|*. |AllFiles (*.*) |*.*"

is ment to read

.Filter = " GDL(*.GDL)|*. |AllFiles (*.*) |*.*"

copy'd & pasted I changed that.