Dim stringcheck As String
Dim filenumber As Long
 
filenumber = FreeFile
Open <deineDatei> For Input As filenumber
    stringcheck = Input(LOF(filenumber), filenumber)
Close filenumber
 
Instr(..., ...)

________________________________________________________________________
::Nicht weil es schwer ist wagen wir es nicht, sondern weil wir es nicht wagen ist es schwer::