Coincido mas o menos como lo plantea xknown
Si estas usando SQL Server puedes hacer ésto en tu query donde te traes tus valores.
Ejemplo.
Cita: SELECT ...,COALESCE(precioVenta,0) AS PrecioVenta
FROM TABLA
Con ello estás indicando que si es nulo ponga un 0, y ya por código puedes hacer tu comparacion con el 0.
Y sería:
Cita: Protected Function Formatea_Numero(precio As Integer)
Dim numero
If precio <> 0 Then
numero = CDbl(FormatNumber(precio,2))
Else
Numero = CStr("Consultar")
End If
Return Numero
End Function
Claro que si estas ocupando tambien el cero lo puedes validar por ejemplo trambien con un -1, o algo por el estilo.
Espero que te funcione..