VB6SP6のDateAdd関数なんだけど

Dim a As Date
Dim b As Date

a = CDate("18:30:00")
b = CDate("18:15:00")

b = CDate(DateAdd("n", 15, b))

If a = b Then
Call MsgBox("OK")
Else
Call MsgBox("NG")
End If

上のを動かすとOKにならないんだけど、うちの環境だけなのかな？
OS:WinXPSP2