>>799
Dim strBuff as String
Dim intFileNum as Interger

intFileNum = FreeFile()

Open "C:\file\index.txt" For Input as #intFileNum
Line Input #intFileNum, strBuff
Close #intFileNum

Label3.Caption = strBuff