Dim User As String = "VB - Archiv - ist - spitze"
        Dim s As String() = Split(User, "-")
        Dim i As Int32 = 0
        For Each c As Control In Me.Controls
            If TypeOf (c) Is TextBox Then
                CType(c, TextBox).Text = s(i).Trim
                i += 1
            End If
        Next