Private Sub Trennen(ByVal TrennString As String, ByVal Trennzeichen As String)
 
 Dim Items() As String 'Ein "leeres" Array erzeugen, muss sein.
 
 'Nehmen wir mal an, wir haben einen String der so aussieht:
 '
 ' "Peter;Monika;Ute;Waldi"
 '
 ' also haben wir ein ";" als Trennzeichen, es könnte aber auch
 ' irgend etwas anderes sein...Hauptsache ein String ;-)
 
 Items = Split(TrennString, Trennzeichen)
 
 ItemCount = UBound(Item) 'Itemcount ist 2 (Obergrenze des Arrays)
 
 strTest1 = Item(0) ' strTest1 enthält "Peter"
 strTest2 = Item(1) ' strTest2 enthält "Monika"
 strTest3 = Item(2) ' strTest3 enthält "Waldi"
 
 
End Sub

VB RULEZ !