' I'm trying to Load the state abreaveations into a choice box
Sub LoadStates
Private List1 As List
List1.Initialize
ChoiceBox1.Initialize("Action")
List1.AddAll(Array("AL","AK","AZ","AR","CA","CO","CT","DE","DC","FL","GA","HI", _
"ID","IL","IN","IA", "KS","KY","LA","ME","MD","MA","MI","MN","MS","MO","MT","NE", _
"NV","NH","NJ","NM","NY","NC","ND","OH","OK","OR","PA","RI","SC","SD","TN","TX","UT" _
,"VT","VA","WA","WV","WI","WY","PR"))
ChoiceBox1.Initialize("")
ChoiceBox1.Items.AddAll(List1)
End Sub