Private Sub Command1_Click()
 
        Dim sArray() As String
        Dim sText As String
        Dim i As Integer
 
        'Bei Dir ist das Text1.Text
        sText = "111;112;113;114;310;410;510;"
 
        'Aufsplitten des Textes aus dem Textfeld
        sArray = Split(sText, ";")
 
        'Ermitteln der Dimension des Arrays minus 1, da der letzte Wert des 
        ' Arrays keinen Wert biinhaltet
        'Array Schritt für Schritt in die Listbox übertragen
        For i = 0 To UBound(sArray()) - 1
            List1.AddItem sArray(i)
        Next i
 
End Sub

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.