问一个关于vb.net 中textbox的有关问题

问一个关于vb.net 中textbox的问题
谁能帮我一下我不会做这个~就是窗体上有两个textbox   我想让第textbox2上只显示出textbox1输入的前4位不管textbox1输入多少并且如果textbox1输入的第4位为小数点那么不管textbox1输入多少位textbox2上都在第一位上加一个零并且不显示小数点   这需要如何做啊需要帮忙~~给分


------解决方案--------------------
If Strings.InStr(TextBox1.Text, ". ") = 4 Then
TextBox2.Text = "0 " & Strings.Left(TextBox1.Text, 3)
Else
TextBox2.Text = Strings.Left(TextBox1.Text, 4)
End If

------解决方案--------------------
If textBox1.Text.IndexOf( '. ')== 4 Then
TextBox2.Text = "0 " & textBox1.Text.Substring(TextBox1.Text, 3)
Else
TextBox2.Text = textBox1.Text.Substring(TextBox1.Text, 4)
End If


------解决方案--------------------
TextBox2.Text = Format(Val(Strings.Left(TextBox1.Text, 4)), "0000 ")