ChkDecNumber

Private Function IsDecimal(ByVal oValue As Variant) As Boolean
'

Dim sValue As String
'

sValue = CStr(oValue)

IsDecimal = False
'

' Should really do extra checking here for the decimal speficier determined

' from the Locale API routines

'

If IsNumeric(sValue) Then
If InStr(1, oValue, ".") Then
IsDecimal = True
End If
End If
'

End Function