Private Sub OptionThree(ByRef cost() As Integer, capacity() As Integer, graphics_card() As String)
'Initialises Option Three. (Prompts user for input of Minimum RAM and Minimum Cost then displays the cards which meet specification.)

Dim MinimumRAM As Integer
Dim MaximumCost As Integer

    Call Information
    
    MinimumRAM = InputBox("Please enter a RAM capacity between 1 and 3")
    MaximumCost = InputBox("Please enter the maximum cost.")
    
        picdisplay.Print "Graphics Card"; vbTab; "Capacity"; Tab(27); "Clock Speed"; vbTab; "Cost"

For index = 1 To 5

    If capacity(index) >= MinimumRAM And cost(index) <= MaximumCost Then

        picdisplay.Print
        picdisplay.Print graphics_card(index); Tab(17); capacity(index); Tab(27); clock_speed(index); Tab(40); cost(index)

    End If
Next
End Sub