Dim aa As String = "" Dim bb As Object = Nothing If aa = "" Then aa = "テスト" aa = If(aa = "", "テスト", "入ってた") Dim aaa As Object = If(aa = "入ってた", MsgBox("test"), Nothing) If IsNothing(bb) = False Then bb = New Object()