Private Function IsValid(ByVal nVal As Double, ByVal sBezeichner As String) As _
  Boolean
   Dim n As Double
   Dim b As Boolean
 
   n = nVal - Fix(nVal)
 
   Select Case UCase(sBezeichner)
      Case "GERADE": If n = 0 Then b = True
      Case "GUNGERADE": If n >= 0.5 Then b = True
      Case "KUNGERADE": If n < 0.5 Then b = True
      Case Else
         b = False
   End Select
 
   IsValid = b
End Function