为什么小数点前面的零没了？后面一个文本框明明保留的三位小数，结果后面好多零，报错类型不匹配

Private Sub Combo2_click()
Text2.Text = Val(Combo1.Text) * Val(Combo2.Text) * 0.000001
Text2 = Format(Val(Text2), "#0.###")
End Sub
为什么这个代码出来的小数点前面的零没了

Private Sub Text14_Change()
Text15.Text = 100 * (Val(Text14.Text) - Val(Text3.Text)) / Val(Text3.Text) & "%"
Text15 = Format(Val(Text15), "0.000")
End Sub
这段代码在Text15 = Format(Val(Text15), "0.000")处显示类型不正确，而且为什么保留的小数位数也不对？