Dim unsort As String = txtUnsortiert.Text
Dim wort As String = ""
 
For i = 1 To laenge Step 1
                    If Mid(unsort, i, 1) = " " Or Mid(unsort, i, 1) = "." Or _
                      Mid(unsort, i, 1) = ":" Or Mid(unsort, i, 1) = "," Or Mid( _
                      unsort, i, 1) = ";" Or Mid(unsort, i, 1) = "?" Or Mid( _
                      unsort, i, 1) = "!" Or Mid(unsort, i, 1) = "-" Then
                        Mid(unsort, i, 1) = Asc(255)
                    End If
                    While Asc(Mid(unsort, i, 1)) < Asc(255)
                        wort = wort + Mid(unsort, i, 1)
                    End While
                    If Asc(Mid(unsort, i, 1)) = Asc(255) Then
                        'Sortierung
                        wort = wort + vbNewLine
                        'Ausgabe der Wörter
                    End If
                    Me.prbStatus.Value = i
Next i
Me.txtSortiert.Text = wort