Sub test() x = 30 If x > 10 Then If x > 20 Then MsgBox x = 20 Else MsgBox x = 15, y = 5 End If If x < 5 Then MsgBox x = 5, y = 2 Else MsgBox x End If End If End Sub