im NothingObject As Object
Dim SomethingObject As Object = "This is an object"
Dim Result As Object

Result = If(NothingObject, SomethingObject)
Console.WriteLine( _
   "NothingObject is first: " & Result.ToString)
Result = If(SomethingObject, NothingObject)
Console.WriteLine( _
   "SomethingObject is first: " & Result.ToString)

Add a code snippet to your website: www.paste.org