Sub WhichCarToBuy() Dim dblAmount as Double dblAmount = Money you have If dblAmount > 15,000,000 Then Buy BMW Else If dblAmount > 10,000,000 Then Buy Mercedese Else If dblAmount > 7,500,000 Then Buy LandCruiser VX Full Option Else If dblAmount > 5,000,000 Then Buy LandCruiser VX Else If dblAmount > 4,000,000 Then Buy RAV4 Else If dblAmount > 3,000,000 Then Buy Mazda6 Else If dblAmount > 2,500,000 Then Buy Toyota Echo Else If dblAmount > 2,000,000 Then Buy Honda Civic Else If dblAmount > 1,500,000 Then Buy Hyundai Ascent Else If dblAmount > 1,000,000 Then Buy Hyundai Santro Else If dblAmount > 700,000 Then Buy Maruti 800 Else If dblAmount > 500,000 Then Buy Used Corolla 1995+ Make Else If dblAmount > 200,000 Then Buy Used Corolla 1985+ Make Else If dblAmount > 100,000 Then Buy Old Ex-Taxi Toyota Starlet Else If dblAmount > 50,000 Then Buy Old Mercedese 1975+ Make Else If dblAmount > 20,000 Then Buy VW Beetle 1970+ Make Else Work Hard Earn More $$$ ' Re Run the Code End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If GoodLuck End Sub ' This procedure is written in VB. If you don't understand this I can provide you the same code in C#, Java or Delphi