target  : (0,0xFA) LitDate
status  : emitted
from    : discovery snippet 'cast_Date_CDate' (minimised)

' ---- modProbe.bas
Option Explicit

Public Sub Main()
  Dim a As Date, c As Date
  a = #1/1/2000#
End Sub

target disasm lines:
  modProbe.Sub Main | 40144C    FA 00000000C0D5E140   LitDate 36526
