Вместо этого вы должны набрать List(Of Clients)
, тогда вы можете использовать LINQ:
Dim clientList As New List(Of Clients)
clientList.Add(new Clients())
Dim isIPFound=clientList.Any(Function(ip) ip.ClientIPAdrress = currentIP)
Но по сути это то же самое, что и ваш цикл только в одном ряду.
Если вам нужно найти самый быстрый способ, вы можете отсортировать свой список и BinarySearch IP с помощью специального компаратора. Или, если IP-адрес является уникальным в списке, вместо него можно использовать Dictionary(Of IPAdress,Clients)
.