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.