Hace tiempo que uso este par de funciones para comprobar si el valor que les ingreso es Null, de ser así en caso de que quiera devolver un número pues devuelvo un cero, en caso que quiera devolver una cadena devuelvo la cadena vacía y no me provoca errores al manejar valores ingresados por el usuario o por una base de datos. Bueno, pues agrego el código para usarlas en Visual Basic .Net que es a lo que me estoy dedicando ahora, digo pasarlas a VB6 o a C ya les resultará fácil, no?

Public Function nIsNull(ByVal oValor)
    Dim iResultado As Integer = 0
    If IsDBNull(oValor) Then
        iResultado = 0
    Else
        iResultado = CInt(oValor)
    End If
    nIsNull = iResultado
End Function

Public Function sIsNull(ByVal oValor)
    Dim sResultado As String = ""
    If IsDBNull(oValor) Then
        sResultado = ""
    Else
        sResultado = CStr(oValor)
    End If
    sIsNull = sResultado
End Function

PD. Creo que debería modificar la plantilla para hacer más amigable la lectura del código que ingreso.