hFile = Open Application.Path &/ "Index.dat" For Input
If Eof(hFile) = True Then
Return
Else
I = 0 'Set i to 0
While Not Eof(hFile)
Line Input #hFile, ProgName
Line Input #hFile, SeIcon
Line Input #hFile, Comd
Line Input #hFile, LineSpace
BoxName = ProgName
BoxCmd = Comd
DisplayPics(I, SeIcon)
Inc I 'Index by one
Wend
Close #hFile
I get the error on the Line BoxName = ProgName