Yo la haria de la siguiente manera
En la parte de declaración de variables privadas vas a tener una variable que te controle cual fue el ultimo elemento seleccionado
Private Ultimo as Integer
En el load asignale -1, para incializarla
Private sub Form_Load()
Ultimo=-1
End Sub
Y en la parte del Click del Combo haces el resto
Private Sub TuCombo_Click()
If TuCombo.listindex <> Ultimo then
If Ultimo <> -1 then
msgbox "El nuevo elemento elegido es " & TuCombo.List(TuCombo.Listindex)
else
msgbox "Es el primero elegido"
endif
else
msgbox "Elegiste el anterior"
endif
ultimo=tucombo.listindex
End Sub
Saludos. Espero que te sirva. Lucas