vb中如何把分数转换为小数

Private Sub Form_Click()
Dim I as single,J as single,S as double,A
A=Split(trim(Text1.Text),"/")
If Ubound(A)=1 Then
i=val(A(0))
j=val(A(1))
If j=0 Then
Msgbox "分母不能为0"
Else
S=i/j
Msgbox "分数的值为:" & s
End IF
Else
Msgbox "不是一个有效的分数"
End If
End Sub

dim s as string,i as long
s = text.text
i = instr(s,"/")
print format(val(left(s,i-1)) / val(mid(s,i+1)),"0.000")