vc pode declarar o seguinte
Dim StrITem() as String
'ai vc vai utilizar a func split
StrItem = split(date,"/")
'isso que dizer que a data sera separada na barra
'cada item que compoe a data sera captura por esses elementos
stritem(0) = 21
stritem(1) = 09
stritem(2) = 2004
fmz?