so im running this bit of code...

Private Sub Command1_Click()
Dim theinput As String
Dim notfound As Boolean
theinput = UCase(Text1.Text)
Open "C:\Users\Asus Man\programing stuff\slang\slang.txt" For Input As #1
Do While Not EOF(1)
Input #1, slang, means
If theinput = slang Then
Picture1.Cls
Picture1.Print means
notfound = True
End If
Loop
Close #1
If notfound = False Then
Picture1.Cls
Picture1.Print "the slang could not be found"
End If

End Sub

but i keep getting the error: input past end of file

i dont really get it...