' sLine enthält die komplette Zeile
 
Dim sNew As String
Dim nPos As Long
Dim n As Integer
 
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 = ""

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de