Straufteilen
' -------------------------Str ----------------------------
Public Sub StrAdd(Daten$(), AnfPos, Zurueck$, Anzahl, ZwischenZ
eichen$)
If AnfPos = 1 Then Zurueck$ = RTrim$(Daten$(AnfPos)) Else Zurueck$ = RTrim$(Zurueck$) + RTrim$(Daten$(AnfPos))
For i = AnfPos + 1 To Anzahl
...
Windows
VB