Public VehicleList As New List(Of Vehicles)
 
Public Structure Vehicles
     Dim Veh_Number As String
     Dim Veh_Name As String
     Dim Veh_Group As String
     Dim Veh_Sub As String
End Structure

Dim v as New Vehicles
With v
   .Veh_Number = "123456789"
   .Veh_Name = "Testeintrag"
   .Veh_Group = "Gruppe 1"
End With
VehicleList.Add(v)

For Each v as Vehicles in VehicleList
    If v.Veh_Number = "123456789" then
       Msgbox(v.Veh_Name)
    End If
    Exit For 
next

programmiert in VB.NET 2010