öncelikle aşağıdaki kodu Option Explicit altına ekleyin 

Dim GSecili As String

sonrada fare basıldığında olayını

Dim varItm As Variant

    Dim i As Long



    If Button = 2 Then

        GSecili = ""

        For Each varItm In Metin3.ItemsSelected

            GSecili = GSecili & "|" & varItm

        Next varItm

        GSecili = Mid(GSecili, 2)

    End If

    

    If Button = acRightButton Then

        CreateContextMenu CStr(Metin3.ItemsSelected.Count)

    End If

şeklinde fare bırakıldığında olayını da

    Dim i As Long

    Dim SplitGSecili As Variant

    If Button = 2 Then

        SplitGSecili = Split(GSecili, "|")

        For i = 0 To Metin3.ListCount - 1

            Metin3.Selected(i) = False

        Next i

        For i = LBound(SplitGSecili) To UBound(SplitGSecili)

            Metin3.Selected(SplitGSecili(i)) = True

        Next i

    End If

şeklinde düzenleyip dener misiniz?