Private Sub Command1_Click()
 
' sLine enthält die komplette Zeile
 
Dim sNew As String
Dim nPos As Long
Dim n As Integer
 
sline = "Wort1000000000000Wort2000000Wort10000000000000000Wort20000"
 
sNew = "": n = 0
Do
  If n = 0 Then n = 1 Else n = 0
  nPos = InStr(sline, "0")
  If nPos > 0 Then
    sNew = sNew & Left$(sline, nPos - 1) & IIf(n = 1, ",", ";")
    While Left$(sline, 1) = "0"
      sline = Mid$(sline, 2)
    Wend
  Else
    If sline <> "" Then
      sNew = sNew & sline & IIf(n = 1, ",", ";")
    End If
  End If
Loop Until sline = ""
 
 
End Sub

-------
danke im voraus,
viele gr??e
MATTHIAS