'Declare Array
        Dim properties(3, 1) As String
 
        'Set values of Array
        properties(0, 0) = "Plaza"
        properties(0, 1) = "1000000"
 
        properties(0, 0) = "Seaside Lot"
        properties(0, 1) = "1500000"
 
        properties(0, 0) = "Restaurant"
        properties(0, 1) = "3000000"
 
        'Retreive values of Array
        Dim newPrice, current, toBuy As Double
        newPrice = current + toBuy * (0.1 * properties(0, 1))