把整数部分和小数部分分开

首先设定一个字符串数组

 Dim AllSmallNum(1) As String

在又一个变量

Dim TenCnt As Short

 TenCnt = 0

  For i = pos To Len(wkNum)   //wkNum 就是要分解的数
            wkBuff = Mid(wkNum, i, 1)
            '数値以外の場合
            If (wkBuff < "0") Or (wkBuff > "9") Then
                '小数点ありの場合
                    If ("." <> wkBuff) Or (TenCnt <> 0) Then
                 
                        Exit For
                    Else
                        TenCnt = 1
                    End If
                Else
                    Exit For
                End If
            Else
                '保存
                AllSmallNum(TenCnt) = AllSmallNum(TenCnt) & wkBuff
            End If
        Next i

 AllSmallNum(0)   整数部分

AllSmallNum(1)   小数部分