Access - código para validar ISBN que no compila en el módulo de access

Public Function ValidateISBN(ByRef isbn As String) As Boolean

    '*******************************************************************

    ' Nombre:     ValidateISBN

    '             por Enrique Martínez Montejo - 26/08/2007

    '

    ' Versión:    1.0

    '

    ' Finalidad:  Validar el identificador International Standard

    '             Book Number (ISBN) especificado.

    '

    ' Entradas:

    '   isbn:     String. El identificador ISBN que se desea verificar.

    '             Devolverá el ISBN correcto.

    '

    ' Resultados:

    '   Boolean:  True/False.

    '

    '*******************************************************************

    ' Comprobamos la longitud del parámetro especificado.

    '

    If (isbn.Length <> 10) Then

        isbn = String.Empty

        Return False

    End If

    Try

        ' Guardamos el dígito de control del número especificado.

        '

        Dim dc As String = isbn.ToUpper.Chars(isbn.Length - 1)

        ' Obtenemos el dígito de control correcto.

        '

        Dim dc2 As String = GetISBN(isbn)

        ' Escribimos el isbn correcto.

        '

        isbn = isbn.Substring(0, 9) & dc2

        Return (dc = dc2)

    Catch ex As Exception

        Return False

    End Try

End Function