>>678
dim a as date
dim b as date
dim test as date

a = time
b = time
test = a / b

でエラー出た