Ikke indsætte samme value i listbox

er du nogle der kan?

kan det overhvoedet lade sig gøre? elelr forstår i ikke spørgsmålet?

prøv at formulere dit spørgsmål på dansk, så kan det være vi kan hjælpe

Først vil jeg rettet lidt en streng:
hehez = "" + k(1) + "," + k(2) + "," + k(3) + ""
kan nøjes med at være
hehez = k(1) & "," & k(2) + "," & k(3)

Det du skal gøre er, at søge hele listen igennem:

Dim i as Integer
Dim j as Integer

For i = 0 to online.ListCount - 1 ' Kan ikke huske hvad tælleren hedder
  j = InStr(0, online.Item(i), ",") 'Finder det første , i hvert element i listen
  If LCase(Left(online.Item(i), j)) = LCase(k(1)) Then 'Sammenligner de første j tegn med k(1) og sørger for at begge er i små bogstaver
    online.Item(i) = k(1) & "," & k(2) & "," & k(3) 'Erstatter den pågældende element
  Else
    online.AddItem k(1) & "," & k(2) & "," & k(3)  'Eller tilføjer et element
  End if
Next