Function FunkcijaNZ() Dim a a = Null MsgBox Nz(a, "Podatak je null") a = 2 MsgBox Nz(a, "Podatak je null") End Function