olá, tenta assim:
'preenche um combox com os estados do brasil
'num module
Public Sub EstadosBrasil(Combo As ComboBox)
Estado = Array("SP", "AC", "AL", "AM", "BA", "CE", "DF", "ES", "GO", "MA", "MT", "MS", "MG", "PA", "PR", "PE", "PI", "RJ", "RN", "RS", "RO", "RR", "SC", "SE", "TO")
Combo.Clear
For X = 0 To 24
Combo.AddItem Estado(X)
Next X
End Sub
'pra chamar
call estadosbrasil(me.combo1)