求助： VB 秒转时间相差 8 小时。

现有一个数据文件，里面存入的日期数值为秒数（4个字节），现用VB读出来，转换成日期时与数据文件真实表达的日期相差8小时，不知何因，向老师求助！谢谢

dim aaa as long
aaa=1403850000    '图片上的秒数
Dim FromDate As Date   '
Dim ToDate As Date   '
FromDate = #1/1/1970#

ToDate = DateAdd("s", aaa, FromDate)
MsgBox ToDate

程序运行结果是：2014-6-27 6：20：00


而数据文件中显示的日期是：2014-6-27 14：20：00
实际上数据的真实时间也是：2014-6-27 14：20：00，
而通过VB计算出来的时间要差8个小时。这是什么原因造成的。


谢谢！！！