请问这个数字转换代码为什么不能转换小数点后的数字？

jhzlzc29

Function GetChoice1(ByVal ind As Integer)
        GetChoice1 = Choose(ind + 1, "零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")
    End Function
    Function GetChoice2(ByVal ind As Integer) '注意"byval",按值传递
        Dim tempInt As Integer
        ind = ind - 1
        tempInt = ind \ 4 '取商
        ind = ind Mod 4 '取余
        GetChoice2 = IIf(ind > 0, Choose(ind, "拾", "佰", "仟", "万"), Choose(IIf(tempInt > 2, 1, tempInt), "万", "亿"))
    End Function
    '--------------------------------------------
    '主函数convertNum
    Function ConvertNum(ByVal num As Object) As String
        Dim i As Integer, j As Integer
        Dim tempInt As Integer
        Dim tempStr, ResultStr As String
        tempStr = CStr(num) '转换成字符型
        j = Len(tempStr) '取得长度
        If num < 0 Then
            j = j - 1
            For i = 1 To j '对每个数字进行大写转换
                tempInt = CInt(Mid(tempStr, j - i + 2, 1))
                ResultStr = GetChoice1(tempInt) & GetChoice2(i) & ResultStr
            Next i
            ConvertNum = "(负)" & ResultStr
        Else
            For i = 1 To j '对每个数字进行大写转换
                tempInt = CInt(Mid(tempStr, j - i + 1, 1))
                ResultStr = GetChoice1(tempInt) & GetChoice2(i) & ResultStr
            Next i
            ConvertNum = ResultStr
        End If
    End Function
调用方式为:
dollars = convertNum(val(inputValue))