Attribute VB_Name = "Decision" Option Explicit Dim a As String, b As Integer, c As Integer, d As Integer, sec As String, thir As String Public Sub Main() ' assign values to variables a = "this is example" b = 3 c = 3 d = 3 ' a simple IF structure If (b > c) Then MsgBox "b is greater than c" Else MsgBox "c is greater or equal to b" End If sec = InputBox("Do you want to see the second alternative? Yes, or No") If (sec = "Yes" Or sec = "yes") Then Second thir = InputBox("Do you want to see the third alternative? Yes, or No") If (thir = "Yes" Or thir = "yes") Then Third MsgBox "This is it folks!" End Sub Public Sub Second() ' a more interesting one If (b > d And c > d) Then MsgBox "b and c are greater than d" Else MsgBox "either b or c is smaller or equal to d" End If End Sub Public Sub Third() ' a variation from above If (b > d And c > d) Then MsgBox "b and c are greater than d" ElseIf (c > d) Then MsgBox "c is greater than d, but b is not." Else MsgBox "either b or c is smaller or equal to d" End If End Sub