Поиск без учета регистра по файлу - VB

listNav.Clear
For i = 1 To LOF(1) \ Len(db)
        Get #1, i, db
        If InStr(LCase(Trim(Text1(0).Text)), LCase(Trim(db.mdl))) > 0 Or _
        InStr(LCase(Trim(Text1(1).Text)), LCase(Trim(db.pr))) > 0 Or _
        InStr(LCase(Trim(Combo1(0).Text)), LCase(Trim(db.os))) > 0 Or _
        InStr(Val(Text1(2).Text), db.cpu) > 0 Or _
        InStr(Val(Combo1(1).Text), db.ram) > 0 Or _
        InStr(Val(Text1(3).Text), db.mmr) > 0 Or _
        InStr(Val(Text1(4).Text), db.bat) > 0 Or _
        InStr(LCase(Trim(Combo1(2).Text)), LCase(Trim(db.scr))) > 0 Or _
        InStr(Val(Text1(5).Text), db.diag) > 0 Or _
        InStr(Val(Text1(6).Text), db.rslw) > 0 Or _
        InStr(Val(Text1(7).Text), db.rslh) > 0 Or _
        InStr(LCase(Trim(Combo1(3).Text)), LCase(Trim(db.bt))) > 0 Or _
        InStr(LCase(Trim(Combo1(4).Text)), LCase(Trim(db.wifi))) > 0 Then
        listNav.AddItem Trim(db.mdl) & "  " & Trim(db.pr) & "  " & Trim(db.os) & "  " & _
        Trim(db.cpu) & "  " & Trim(db.ram) & "  " & Trim(db.mmr) & "  " & Trim(db.bat) & "  " & _
        Trim(db.scr) & "  " & Trim(db.diag) & "  " & Trim(db.rslw) & "  " & _
        Trim(db.rslh) & "  " & Trim(db.bt) & "  " & Trim(db.wifi)
        End If
Next i