(VBA) Get Number

 

 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