Dim sZahl() As String
Dim i As Integer
 
sZahl = Split(sZeichenfolge, ",")
 
sZeichenfolge = ""
For i = 0 To Ubound(sZahl)
  If sZahl <> "" Then sZeichenfolge = sZeichenfolge & sZahl(i) & ","
Next i
If Right$(sZeichenfolge, 1) = "," Then 
  sZeichenfolge = Left$(sZeichenfolge, Len(sZeichenfolge) - 1)
End If
 
MsgBox sZeichenfolge

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de