I'm trying to import a Lotus 1-2-3 file via VBA macro in XL while following error msg is appearing:

run-time error '1004' - Cannot open Lotus 1-2-3 file

This is the list while I cannot understand how it's the problem: any idea/help?
Txs

'File to be opened
Filetoopen = Application.GetOpenFilename("All files(*.*), *.*", , "File")
If Filetoopen = False Then End

Workbooks.Open Filename:=Filetoopen

FileOpened = ActiveWorkbook.Path
n1 = Len(FileOpened)
n2 = Len(Filetoopen)
Filename = Right(Filetoopen, (n2 - n1 - 1))

'clean variable overview
Windows(Filename).Activate