Check a Belgium Rijksregisternummer
Returns true if it is a valid "Rijksregisternummer" for Belgium

Private Function ControleRijksNummer(RijksNummer As String) As Boolean
  ControleRijksNummer = IIf(((97 - Val(Left(RijksNummer, 9)) Mod 97)) = _
                   Val(Right(RijksNummer, 2)), True, False)
End Function

This program is copied from some site, later it proved to be wrong.
- posted by Kabauter Mod @ 10:44