VB 小于1的小数 显示不出来小数点前的0

Question

Private Sub Command1_Click()
Text5.Text =Str(Val(Text1.Text) * Val(Text2.Text) * Val(Text3.Text) * Val(Text4.Text)) / 2
End Sub
怎么才能把小于1的小数前面的零显示出来啊 .x显示成0.x
我需要修改后的完整代码 因为我是刚学VB
现在就要用这个计算软件

Answer 1

Private Sub Command1_Click()

Text5.Text = Str(Val(Text1.Text) * Val(Text2.Text) * Val(Text3.Text) * Val(Text4.Text)) / 2
if abs(text5)<1 and text5<>0 then
if text5>0 then
text5="0" & trim(text5)
else
text5="-0" & trim(abs(text5))
end if
end if

End Sub