VBA2- unabhängige Listboxen

Private Sub ListBox1_Change()
If Not checkauswahl Then
MsgBox "Text XY"
Call auswahlaufheben
Exit Sub
End If
Call auswahlübertragen
End Sub

Private Function checkauswahl() As Boolean
Dim i As Long
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = False Then
checkauswahl = True
Exit For
End If
Next i
End Function

Private Sub auswahlaufheben()
Dim i As Long
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next i
End Sub

Private Sub auswahlübertragen()
Dim i As Long
Range("B2:B100").ClearContents
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then Cells(Range("B65536").End(xlUp).Row + 1, 2) = ListBox1.List(i)
Next i
End Sub