Yes, and of course the line


If List1.List(lngIndex) = "AAA" Then

could be changed to something like

If List1.List(lngIndex) = Text1.Text Then