Or you can write a function:
Public Function fnFirstNonNull(Paramarray SomeValues() as Variant) as Variant
Dim intLoop as integer
fnFirstNonNull = NULL
for intLoop = lbound(SomeValues) to ubound(SomeValues)
if not IsNull(Somevalues(intLoop)) then
fnFirstNonNull = SomeValues(intLoop)
exit Function
end if
next
end function
? fnFirstNonNull(NULL, NULL, 3) => 3
? fnFirstNonNull("A", "B", "C") => A