ISBN - Numeração de Livros

    Function CalculaDVISBN(ByVal ISBN As String) As String
        Dim i As Integer, chksum As Integer = 0
        Dim factor As Integer = 3

        For i = 0 To 11
            factor = 4 - factor
            chksum += factor * Convert.ToInt16(ISBN.Substring(i, 1))
        Next
        Return (10 - (chksum Mod 10)).ToString
    End Function

---

Module Validadores

Se o campo é numérico

    Public Function E_Numerico(dado As String) As Boolean
        If IsNumeric(dado) = False Then
            Return False
        Else
            Return True
        End If
    End Function

Se o campo é uma data Válida

    Public Function E_Data(dado As String) As Boolean
        If IsDate(dado) = False Then
            Return False
        Else
            Return True
        End If
    End Function

Se o campo é Nada

Uma variável é Nada quando ela foi criada e não foi feita qualquer atribuição de valor a ela,

    Public Function E_Nada(dado As String) As Boolean
        If IsNothing(dado) = False Then
            Return False
        Else
            Return True
        End If
    End Function

Se o campo é Nulo

    Public Function E_Nulo(dado As Object) As Boolean
        If IsDBNull(dado) = False Then
            Return False
        Else
            Return True
        End If
    End Function