Search Textbox

[Momo81]

hi, how can i change this code to ignore uppercase and lowercase characters?

Thanks

Dim rng As RangeDim c As Range
Dim a As String 'listbox ricerca parziale

    ListBox1.Clear
    With Sheets("Database")
        Set rng = .Range(.Cells(5, 920), .Cells(.Cells(65536, 920).End(xlUp).Row, 920))
                
        a = "*" & Ricerca_txt & "*" 'listbox ricerca parziale
        
        For Each c In rng
            If c.Value Like a Then 'listbox ricerca parziale
                With Me.ListBox1
                    .AddItem
                    .List(.ListCount - 1, 0) = c.Value
                    .List(.ListCount - 1, 1) = c.Offset(0, 1).Value
                    .List(.ListCount - 1, 2) = c.Offset(0, 2).Value
                End With
            End If
        Next
    End With 'listbox ricerca parziale     Set rng = Nothing 'listbox ricerca parziale