If myString IsNot Nothing Then
If Not myString Is Nothing Then
Sub Print(ByVal o As Object) Dim PrintableObject As IPrintable _ = TryCast(o, IPrintable) If PrintableObject IsNot Nothing Then PrintableObject.Print() End If ... End Sub
Sub Print(ByVal o As Object) Dim PrintableObject As IPrintable If TypeOf o Is IPrintable Then PrintableObject = CType(o, IPrintable) PrintableObject.Print() End If ... End Sub