In base alle indicazioni di gege ho creato questi due Array che mi caricano i 2 LstCombo e fin qui tutto bene, però mi sono arenato nella seconda parte dove devo creare la funzione che assegna i rispettivi valori

---------------------------------------
'Parte creata in un modulo sorgenti
Public PaeseCitta As Variant
Public Const NPaeseCitta = 4
Public Const NCapProv = 4
Public CapProv As Variant
Public Sub InizializzaArray()

PaeseCitta = Array("Pippo", _
"Pluto", _
"Caino", _
"Abele")

CapProv = Array("25075 - Bs", _
"25100 - Bs", _
"23498 - Na", _
"10000 - Pa")

End Sub

Public Function CercaPaeseCitta(PaeseCittaCercata)
Dim CercaPaCi As Integer
CercaPaCi = -1
For i = LBound(PaeseCitta) To UBound(PaeseCitta)
If (PaeseCitta(i) = PaeseCittaCercata) Then
CercaPaCi = i
Exit For
End If
Next i
CercaPaeseCitta = CercaPaCi
End Function
Public Function CercaCapProv(CapProvCercata)
Dim CercaCP As Integer
CercaCP = -1
For i = LBound(CapProv) To UBound(CapProv)
If (CapProv(i) = CapProvCercata) Then
CercaCP = i
Exit For
End If
Next i
CercaCapProv = CercaCP
End Function
-----------------------------------------

' Parte inserita nel Form
Option Compare Text
-------------------------
Sub CaricaPaeseCitta()
Dim i
Me.lstDest.Clear
For i = 0 To NPaeseCitta - 1
Me.lstDest.AddItem PaeseCitta(i) ' aggiunge gli elementi al list box
Next i
End Sub
------------------
Private Sub Form_Load()
Dim i
Sorgenti.InizializzaArray
CaricaPaeseCitta
CaricaCapProv
End Sub

Sub CaricaCapProv()
Dim i
Me.lstCapProv.Clear
For i = 0 To NCapProv - 1
Me.lstCapProv.AddItem CapProv(i) ' aggiunge gli elementi al list box
Next i
End Sub
-------------------
Grazie e saluti
Giorgio