non dovrebbe essere

Dim data22 as Datetime

?