here is some code and for some reason that is beyond my control it doesn't work

Private Sub Command1_Click()
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set File = fs.GetFile("C:\reginfo.txt")
If Err.Number = 53 Then 'File not found
MsgBox "File Not Found"
End If
If Err.Number = 0 Then 'File found
frmsplash.Visible = True
Open "reginfo.txt" For Input As #1
frmsplash.Label1 = Input(LOF(1), 1)
Close #1
End If
End Sub

any ideas ?

it doesn't display the text from the file into label1

PLEASE HELP


Merlin ?