Class MeineAutoKlasse
Private prvmarke As String
Private prvfarbe As String
Private prvpreis As Integer
 
Public Sub New()
   prvmarke = ""
   prvfarbe = ""
   prvpreis = -1
End Sub
 
Public Sub New(marke As String, farbe As String, preis as Integer)
   prvmarke = marke
   prvfarbe = farbe
   prvpreis = preis
End Sub
 
Public Property Automarke() As String
   Get
      Return prvmarke
   End Get
   Set(value as String)
      prvmarke = value
   End Set
End Property
 
Public Property Lack() As String
   Get
      Return prvfarbe
   End Get
   Set(value as String)
      prvfarbe = value
   End Set
End Property
 
Public Property UVP() As String
   Get
      Return prvpreis
   End Get
   Set(value as Integer)
      prvpreis = value
   End Set
End Property
End Class

Dim Liste As New ArrayList
 
For each x In Bla
   Dim Item as New MeineAutoKlasse(x.Wert1, x.Wert2, x.Wert3) 'ggf. mit CStr() 
   ' oder CInt() erweitern
   Liste.Add(Item)
Next

Dim Liste As New ArrayList
 
For each x in Bla
   Dim Item as New MeineAutoKlasse()
   Item.Automarke = x.Wert1
   Item.Lack = x.Wert2
 
   If IsNumeric(x.Wert3) then
      Item.UVP = x.Wert3
   End If
Next

Dim Liste(2) As MeineAutoKlasse