txt y coordenadas en vb6

[pkj]

Posiblemente el fallo lo tienes en esta linea:

FicheroTXT = File1.Path & "\" & File1.FileName

Ya que si el fichnero esta en la raiz del disco (y dices que lo has puesto en C:) el valor de
file1.path ya incluye la barra inversa (\), y al sumarle otra barra ya son 2 barras juntas (\\).

Yo por si acaso suelo hacer esto:

if right$(file1.path,1)="\" then
FicheroTXT = File1.Path & File1.FileName
else
FicheroTXT = File1.Path & "\" & File1.FileName
end if

Suerte