Public Sub prcLoadPage1()
...
110  For iCol = 1 To 5
       If .Columns(iCol).ColType = TYPE_CHECKBOX Then
         sLine = sLine & IIf(CBool(aGebäude(1, iCol)), "1", "0")
       Else
120      sLine = sLine & aGebäude(1, iCol)
       End If
130    If iCol < 5 Then sLine = sLine & vbTab
140  Next iCol
...
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de