tilretning af kode.

jeg får fejl i split parten, jeg har åbentbart ikke helt forstået det med arrays :P nogen der vil kigge på det?

Dim AntalObjekter As Integer
Dim objekt, indsaet As String

Function del(objekt)
splittet = Split(objekt, "x")
objekt(0) = splittet(0)
objekt(1) = splittet(1)
End Function


Private Sub Command2_Click()

End Sub


Private Sub Indsæt_Click()
Dim nummer As Integer
Dim liste(2) As String
indsaet = Text1.Text

For nummer = 0 To List1.ListCount
'hvis der er data på listen
If List1.ListCount > 0 Then

'del listen op, navn og antal for sig
del (liste)

'hvis det ønskede indsatte er det samme som listens navn
If liste(0) = indsaet Then
liste(1) = Val(liste(1)) + 1
List1.AddItem (liste(0) + "x" & liste(1))
List1.RemoveItem (List1.Index)
Else
GoTo Indsaett
End If
Else
GoTo Indsaett
End If
Indsaett:
List1.AddItem (indsaet & "x1")

Next