'' ========================================
'' If...Then...Else Statement
''
'' Conditionally executes a group of statements, depending on the value of an expression.
''
'' SYNTAX - block - multiple line
''
'' If condition [ Then ]
''    [ statements ]
'' [ ElseIf elseifcondition [ Then ]
''    [ elseifstatements ] ]
'' [ Else
''    [ elsestatements ] ]
'' End If
''
'' - or - single line format
'' If Condition Then [ statements ] [ Else [ elsestatements ] ]
'' ========================================     

Sub ForNextTax()
'' declare variables
Dim TaxInc As Long
Dim Tax As Double
 
'' assign a value 
TaxInc = 37001  '' <-- Edit value
 
'' start of If...Then...Else block
    If TaxInc <= 18200 Then
        Tax = TaxInc * 0
    ElseIf TaxInc <= 37000 Then
        Tax = (TaxInc - 18200) * 0.19
    ElseIf TaxInc <= 80000 Then
        Tax = 3572 + (TaxInc - 37000) * 0.325
    ElseIf TaxInc <= 180000 Then
        Tax = 17547 + (TaxInc - 80000) * 0.37
    Else
        Tax = 54547 + (TaxInc - 180000) * 0.45
    End If
'' end of If...Then...Else block
 
MsgBox "A Taxable Income of: " & Format(TaxInc, "Currency") & " incurs a tax liability of " & Format(Tax, "Currency")
 
End Sub    

'' ======================================== 
Function TaxP2016(TaxInc As Long) As Double
Dim Tax As Double
 
    If TaxInc <= 18200 Then
        Tax = TaxInc * 0
    ElseIf TaxInc <= 37000 Then
        Tax = (TaxInc - 18200) * 0.19
    ElseIf TaxInc <= 80000 Then
        Tax = 3572 + (TaxInc - 37000) * 0.325
    ElseIf TaxInc <= 180000 Then
        Tax = 17547 + (TaxInc - 80000) * 0.37
    Else
        Tax = 54547 + (TaxInc - 180000) * 0.45
    End If
 
TaxP2016 = Tax
End Function