Così?
Dim DataStringa as string
DataStringa = Date.Now()