Dim num = 2312.3
        Dim result
        result = (num * 10) Mod 2
        If result = 1 Then num = num + 0.1
        MsgBox(num)

看下這樣符合您要求不