Private Sub Command1_Click()
    Dim szBuffer As String
    
    
    
    Open "C:\Autoexec.bat" For Input As # 1 
        While Not EOF( 1 )
            Line Input # 1 , szBuffer
            MsgBox InStr(szBuffer, "abcd")
        Wend
    Close # 1 
End Sub

Private Sub Command1_Click()
    Dim szBuffer As String
    Dim szTemp As String
    
    
    
    Open "C:\coreappschk.txt" For Input As # 1 
        While Not EOF( 1 )
            Line Input # 1 , szTemp
            
            szBuffer = szBuffer & szTemp
        Wend
    Close # 1 
    
    MsgBox szBuffer Like "ab*cd"
End Sub