vb.net 保留有效位数 有效数字

找了好长时间，找不到，自己动手写一段代码吧！

保留有效数字，并非在小数点后圆整到多少位。
有效数字是从一个数的左边第一个非0数字起，到末位数字止，所有的数字都是这个数的有效数字。
就是一个数从左边第一个不为0的数字数起到末尾数字为止，所有的数字（包括0，科学计数法不计10的N次方），称为有效数字。
简单的说，把一个数字前面的0都去掉，从第一个正整数到精确的数位止所有的都是有效数字了。
如：0.0109，前面两个0不是有效数字，后面的109均为有效数字（注意，中间的0也算）。
3.10910^5（3.109乘以10的5次方）中，3 1 0 9均为有效数字，后面的10的5次方不是有效数字。
5.210^6，只有5和2是有效数字。
0.0230，前面的两个0不是有效数字，后面的230均为有效数字（后面的0也算）。
1.20 有3个有效数字。
1100.120 有7位有效数字。
2.998*10^{4（2.998乘以10的4次方）中，保留3个有效数字为3.00*10}4。

 '***获取有效位数的有效数字***
    Public Function funSignifNumber(ByVal Num As Decimal, ByVal n As Integer) As String
        Dim sign As Int16 = Math.Sign(Num) '取得并保存数值的符号
        Dim strSign As String = ""
        If sign = -1 Then strSign = "-"
        Dim mNum As Decimal = Math.Abs(Num)
        Dim intPart