codice:
Function MyData(StartData) as String 'Ho eliminato la dichiarazione del tipo di datp così non egìffetua il cast.
   If Not IsDBNull(StartData) Then
      MyData = Format(CDate(StartData), "dd/MM/yyyy") 'Prova così questa riga altrimenti fai come facevi prima....
   Else
      MyData = "NO DATA!"
   End If
End Function