I tried doing that, but it returns nothing. I then DIMd them to Variants. Still nothing.
They both work separately, however.
Here is the code.
CertEnd = FreeFile
Open Text1.Value For Input As CertEnd
Do Until EOF(CertEnd)
Input #CertEnd, TheCert
CarrierPlace = InStr(1, TheCert, "insured")
If...