selecting multiple values in listbox and deleting them

Private Sub Generate_Click()
cmdprintall.Enabled = True
check
End Sub

Sub check()
On Error GoTo errorhandler
Dim c As Integer
Dim X As Integer
Dim arr() As String
c = 0
For X = 0 To List1.ListCount - 1
  If List1.Selected(X) = True Then
    ReDim Preserve arr(c)
    arr(c) = List1.List(X)
    c = c + 1
  End If
Next X

If UBound(arr) > 0 Then
  For X = 0 To UBound(arr)
   FrmInvoice.dbnamesl.Text = arr(X)
    Set rsp = showpurchasenamesmultiple
    Set objrs = GetDatamultiple
   savemultiplerecord
   FrmInvoice.dbnamesl.Clear
  FrmInvoice.dbnamesl.Text = ""
  Next X
End If
MsgBox "All invoices were created successfully", vbInformation, "Successfully Created"
Exit Sub

errorhandler:
    MsgBox "No Items were selected. Please select items from the list", vbCritical, "Too Few Items"
End Sub