找VBS高手，看下我编的计算器为什么用不了？代码如下

dim a,u,t
u=inputbox("请输入数字","计数器","")
t=inputbox("请输入数字")
a=sum(u,t)
a=msgbox(a,0,"计算器")
function sum(u,t)
sum=u+t
end function

dim u,t
dim a
u=inputbox("请输入数字","计数器","")
t=inputbox("请输入数字")
a=sum(u,t)
a=msgbox(a,0,"计算器")
function sum(u,t)
sum=cdbl(u)+cdbl(t)
end function

变量类型强制转换下 要不他默认为字符串了