Public Class Interpreten
 
    Private _ID As String
    Public Property ID() As String
        Get
            Return _ID
        End Get
        Set(ByVal value As String)
            _ID = value
        End Set
    End Property
 
 
    Private _Interpret As String
    Public Property Interpret() As String
        Get
            Return _Interpret
        End Get
        Set(ByVal value As String)
            _Interpret = value
        End Set
    End Property
 
End Class

Dim Interpret(100000) as Interpreten

Dim InterpretFound as Boolean = False
Dim i as Integer = 0
While i < AnzahlInterpreten
If String.Equals(Interpret(i).Interpret, NewInterpret) then
InterpretFound  = True
else
InterpretFound  = False
end if 
i+=1
End While
 
'Jetzt weiss er ob der Interpret bereits erfasst wurde 
 
If InterpretFound = True then
'Der Interpret ist bereits vorhanden
Else
'Hier wird er erfasst Ungefähr so:
Interpret(AnzahlInterpreten).Interpret = NewInterpret
AnzahlInterpret+=1
End if