Function
isDecimal(ByVal num As Double) As Boolean
Try
If num / (Fix(num)) = 1 Or num = 0 Then
Return False
Else
Return True
End If
Catch ex As DivideByZeroException
End Try
End Function
Sicuramente non è la soluzione migliore ma FUNZIONA!!!! (come diceva il buon vecchio DOC in "ritorno al futuro")