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