utilizza un flag

dim bCarica as Boolean
bCarica = True
riempicombo1

Sub combo1_click()
if Not bCarica Then FunzioneCombo
End sub