Public Class ClassFunciones

    Public Function Reemplaza_DBNULL(ByVal ValorOriginal As Object, ByVal ValorReemplazo As Object) As Object

        If IsDBNull(ValorOriginal) Then
            Reemplaza_DBNULL = ValorReemplazo
        Else
            Reemplaza_DBNULL = ValorOriginal
        End If

    End Function

End Class