Private Sub Command1_Click()
    str1 = "Hallo mein Name ist Helmut ich komme aus Freiburg und bin 49 Jahre" & _
      "alt."
    x = Len(str1)
    If x > 10 Then
        y = x - 10
    End If
    Textausgabe = Mid(str1, y + 1)
    List1.AddItem "..." & Textausgabe
End Sub