Hi I need to get the below to work but I can not understand why it does not
work
Could someone help?

Dim FName As Variant
FName = Application.GetOpenFilename("TXT files (*.txt),*.txt,All Files
(*.*),*.*", , , , True)
Open FName For Input As #1


Thank you