Private Sub btnVerschieben_Click()
    nRows = sevGrid1.Rows
    i = 0
    With sevGrid1
       Do While i <= nRows
          If Not .SelectedItem Is Nothing Then
             MsgBox "Item 1 = " & .SelectedItem(1)
             MsgBox "Item 2 = " & .SelectedItem(2)
             MsgBox "Item 3 = " & .SelectedItem(3)
             MsgBox "Item 4 = " & .SelectedItem(4)
             TextVerschieben
          End If
          i = i + 1
       Loop
    End With
    MsgBox "Die Textbausteine wurden ins Archiv verschoben"
End Sub