isNull [VBA]

option explicit

public sub is_null 

  dim v as variant   ' v is not null
  dim l as long      ' l is not null

  if isNull(v) then
     msgBox("v is null")
  else
     msgBox("v is not null")  ' v is not null
  end if

  if isNull(l) then
     msgBox("l is null")
  else
     msgBox("l is not null")  ' l is not null
  end if

  v = null

  if isNull(v) then
     msgBox("v is null")       ' v is null
  else
     msgBox("v is not null")
  end if

end sub