1
Function
GetNumber(num
As
Variant)
As
Double
2 If (IsNull(num)) Then
3 GetNumber = 0
4 Else
5 GetNumber = CDbl (num)
6 End If
7 End Function
2 If (IsNull(num)) Then
3 GetNumber = 0
4 Else
5 GetNumber = CDbl (num)
6 End If
7 End Function