Here is another variation using extension methods:
Imports System.Runtime.CompilerServices
Module Module1
Private FooBar As Foo = Nothing
Sub Main()
If (FooBar.IsNotNull) Then
End If
End Sub
End Module
Class Foo
Public Property Bar As String
End Class
Module NullChecks
<Extension>
Function IsNull(Of T As Class)(ByVal obj As T) As Boolean
Return obj Is Nothing
End Function
<Extension>
Function IsNotNull(Of T As Class)(ByVal obj As T) As Boolean
Return obj IsNot Nothing
End Function
End Module