Søge efter karakter i fil

Mangler noget kode til at lede i en fil om en given karakter eksisterer. Så snart første forekomst er fundet, skal funktionen afsluttes og returnere til kaldende funktion.

Function FindCharacterInFile(objFile As Variant, chrKarakter As String) as boolean
dim fnum as integer

fnum = FreeFile
Open objFile For Input As fnum
'Find første forekomst af karakteren chrKarakter
Close fnum
End Function