Dim zeichenkette As String
Dim initialkette As String
Dim kette2 As String
Dim schrittweite As Integer
 
Private Sub Command1_Click()
  For i = 1 To Len(zeichenkette) Step schrittweite
    Text1.Text = Text1.Text & Mid(zeichenkette, i, schrittweite) & vbCrLf
  Next
End Sub
 
Private Sub Command2_Click()
  If Text1.Text = "" Then Exit Sub
  initialkette = Text1.Text
  Do
    kette2 = kette2 & Mid(initialkette, 1, InStr(initialkette, vbCrLf) - 1)
    initialkette = Mid(initialkette, InStr(initialkette, vbCrLf) + 2)
  Loop Until initialkette = ""
  MsgBox kette2
End Sub
 
Private Sub Form_Load()
  zeichenkette = "DasIstEinTestStringUmDasGanzeEinmalZuDemonstrieren"
  schrittweite = 10
End Sub