la funzione è : data1
function data1(ByVal X as string)
dim datag as string=right(Trim( X ), 2)
dim datam as string=mid(Trim( X ), 5, 2)
dim dataa as string=left(Trim( X ), 4)
dim data2 as string=datag & "/" & datam & "/" & dataa

return replace(trim(X),Trim( X ),data2)

end function