Rica ederrim.veri olmadığı için tet edemedim.

Private Sub ListBox1_Click() kodundaki  alttaki koddaki 5 yerine 4 olması gerek deneyin abey.

If a = 5 Then

        ComboBox3.Value = ListBox1.Column(a)

        GoTo var

    End If