scusate ma non ho capito cosa intendete vi posto un pò di codice spero che facciate altrettanto

Private Sub Form_Load()
Dim miadata, mioanno
miadata = Date
mioanno = Year(miadata)
data.List(0) = mioanno
End Sub

ho provato così.. ma mi scrive solo il 2003 come faccio afar scrivere gli anni precedenti? cioè che iniziano dal 1990..