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, ",", ";")
      [color=red]sLine = Mid$(sLine, nPos)[/color]
      While Left$(sline, 1) = "0"
        sline = Mid$(sline, 2)
      Wend
    Else
      If sline <> "" Then
        sNew = sNew & sline & IIf(n = 1, ",", ";")
        [color=red]sLine = ""[/color]
      End If
    End If
  Loop Until sline = ""
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de