用VB编写下题:给出年，月，日，求该日是该年的第几天

Private Sub Command1_Click()
Dim y%, m%, d%
y = Val(InputBox("请输入年份!"))
m = Val(InputBox("请输入月份!"))
d = Val(InputBox("请输入日"))
MsgBox "这是今年的第" & DateDiff("d", DateSerial(y, 1, 1), DateSerial(y, m, d)) + 1 & "天!"
End Sub