vb中提取小数点后面的数据的

楼主，此题需要用先把小数部分提出来，然后用MID 函数提出需要的第几位。
举例子如下，新建3个text 控件
Private Sub Form_Load()
Dim a As Single
a = 13.456723
a = a - Int(a) ' 这部分把小数提取出了 0.456723 第一位是0 ，第二位是. (小数点），
第三位是4 ,，以此类推

b = Mid(a, 3, 2) ’ 提取小数部分，从第3位开始，2个数 b的输出应该是45
c = Mid(a, 5, 2) ’ 提取小数部分，从第5位开始，2个数 c的输出应该是67
d = Mid(a, 5, 4) ’ 提取小数部分，从第5位开始，4个数 d的输出应该是6723
text1.text=b
text2.text=c
text3.text=d
End Sub

楼主有不明白的可以追问

Private Sub Command1_Click()
Print Mid("123.4567", InStr("123.4567", ".") + 1, 2) '提取小数点后两位
a = Split("123.4567", ".") '提取小数点后所有字符
If UBound(a) > 0 Then Print a(1) '判断是否提取到，是则输出。
End Sub

转换成字符串：CStr
搜索小数点位置：Instr
截取字符串：Mid

instr mid str三个组合起来