ListBox - Como Limitar os itens seleccionados?

OLá, a todos. Preciso de ajuda. Tenha uma listBox com este código:
Private Sub CommandButton1_Click()

Dim W As Worksheet
Dim i As Integer
Dim Ln As Integer
Set W = Sheets("Recibos")
i = 0
Ln = 28
For i = 0 To Me.ListBox1.ListCount - 1

   If Me.ListBox1.Selected(i) Then
     
       W.Cells(Ln, 5).Value = Me.ListBox1.List(i, 6)
       W.Cells(Ln, 1).Value = Me.ListBox1.List(i, 4)
       W.Cells(Ln, 3).Value = Me.ListBox1.List(i, 0)
       W.Cells(Ln, 7).Value = Me.ListBox1.List(i, 5)
       W.Cells(Ln, 10).Value = Me.ListBox1.List(i, 7)
       W.Cells(Ln, 14).Value = Me.ListBox1.List(i,
       W.Cells(Ln, 18).Value = Me.ListBox1.List(i, 9)
       Ln = Ln + 1

   End If
Next
End Sub

Esta listbox, permite-me seleccionar as facturas a pagar por um cliente e a transportár os seus dados para o recibo. No entanto o recibo só permite que sejam gravadas no máximo 6 facturas. Eu queria colocar um limitador do código de modo a que o list.box não deixasse selccionar mais de 6 items. Alguém, me pode ajudar e inserir o código de ajuda aqui no meu código? Obrigado.

Ola seja bem vindo ao fórum.

Este é um fórum exclusivamente de Ms Access, procure por favor num fórum de Excel.