Function Comprobar(ByVal num as single) as Boolean Dim s as String = num.ToString Return s.EndsWith("0") Or s.EndsWith("5") End Function