运行实时错误13

代码：   
    Dim a As String
    Dim b As String
    Dim temp1 As Date
    Dim temp2 As Date
    a = Val(Text8.Text)
    b = Val(Text13.Text)
    temp1 = FormatDateTime(Mid(a, 1, 4) & "/" & Mid(a, 5, 2) & "/" & Mid(a, 7, 2))
    temp2 = FormatDateTime(Mid(b, 1, 4) & "/" & Mid(b, 5, 2) & "/" & Mid(b, 7, 2))
    Text3.Text = Val(temp2 - temp1) + Val("1")

大意是 计算两个时间间隔的时间
a的格式是20170701
b的格式是20170802
计算两个日期间隔的时间并显示到text3中

可是，本机测试没有一点问题，生成exe运行也正常。
可是换到别的电脑上，就出错了。 实时错误13 类型不匹配

备注：操作流程及方法完全一样。
手工定义过 a、b的值 即 a=val("20170701") b=val("20170802") 也同样报错， 请问如何解决呢？ 如成功解决可加本人qq 2423623851 赏5元红包