Try this

Dim lookfor As String

.....

lookfor = ctl.Caption