我想把浮点数保留4位小数

Question

1、我想把浮点数保留4位小数
如：-246*2/32767　　结果保留4位小数
我是用的format函数
可是结果如果小于1，怎么整数部分没有0呀，只是显示如：“0.1234”显示“.1234”
怎么让它显示为“0.1234”呀２、我用一个text控件来显示通过串口传过来的报文，十六进制的，怎么使滚动条永远在最下边
谢谢了

Answer 1

1. text1.text=format(-246*2/32767),"######0.0000")

Answer 2

1.
Private Sub Command1_Click()
Dim x As String
x = ".1234"
'x = "-.1234"
'x = "12.1234"
'x = "-12.1234"
MsgBox IIf(Left(x, 1) = ".", "0" & x, IIf(Left(x, 2) = "-.", "-0" & Right(x, Len(x) - 1), x))
End Sub
2.TEXT1.SELTEXT=LEN(TEXT1.TEXT)