Cada vez que selecciones una nueva opciòn en un combo,,se activa el evento change,..dentro puedes verificar por ejemplo en que valor se encuentra y validar si se ha seleccionado algo:
prueba esto:
Private Sub Combo1_Change()
dim x as string
If Me.Combo1.Text = "" Then
msgbox "no hay datos seleccionados"
else
x=me.combo1.text
End If