Dim i, ListSize as Integer

ListSize = UBound(Names)

ReDim Preserve Names(ListSize + 1)  ' Robimy miejsce na 1 dodatkowy wpis
Names(ListSize + 1) = LookingFor

Do Until Names(i) = LookingFor
  i += 1
Loop

If i <= ListSize Then
  MessageBox.Show("Znalazłem!")
Else
  MessageBox.Show("Tego nazwiska nie ma na liście.")
End If
