It's a bit long, but here you go.

Public Class Form1 Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click

    Dim Position As Integer
    Dim Size As Integer = 8
    Dim Type() As String = {"Pepperoni Lover's", "Meat Lover's", "Cheese Lover's", "Veggie Lover's",
        "Supreme", "Pepperoni", "Hawaiian", "Hamburger", "Barbecue"}
    Dim CurrentPrice() As Double = {10.35, 11.75, 9.45, 8.46, 8.25, 9.8, 8.8, 7.45, 9.3}
    Dim PriceIncrease() As Double = {2.0, 1.25, 1.45, 2.6, 3.0, 2.75, 1.0, 0.75, 0.85}
    Dim NewPrice(Size), Tax(Size), Total(Size) As Double

    'Current Price, Increase
    'For Position = 0 To Size
    'lstboxCurrent.Items.Add(CurrentPrice(Position).ToString("C"))
    'lstboxIncrease.Items.Add(IncreasePrice(Position).ToString("C"))
    'Next

    NewPrice(Size) = IncreasePrice(CurrentPrice, PriceIncrease)

    'New Price
    For Position = 0 To Size
        lstboxNew.Items.Add(NewPrice(Position).ToString)
    Next

    'Tax
    For Position = 0 To Size
        Tax(Position) = NewPrice(Position) * 0.089
        lstboxTax.Items.Add(Tax(Position).ToString("C"))
    Next

    'Total
    For Position = 0 To Size
        Total(Position) = NewPrice(Position) + Tax(Position)
        lstboxTotal.Items.Add(Total(Position).ToString("C"))
    Next

    Output(Type, CurrentPrice, PriceIncrease)

End Sub

Function IncreasePrice(ByRef CurrentPrice As Array, ByRef PriceIncrease As Array)

    Dim Size = 0
    Dim NewPrice(Size)

    For Position = 0 To Size

        NewPrice(Position) = CurrentPrice(Position) + PriceIncrease(Position)

    Next

    Return NewPrice(Size)

End Function

Sub Output(ByRef Type As Array, ByRef CurrentPrice As Array, ByRef IncreasePrice As Array)

    Dim Size As Integer = 8

    'Type
    For Position = 0 To Size
        lstboxType.Items.Add(Type(Position).ToString)
    Next

    'Current Price
    For Position = 0 To Size
        lstboxCurrent.Items.Add(CurrentPrice(Position).ToString("C"))
    Next

    'Price Increase
    For Position = 0 To Size
        lstboxIncrease.Items.Add(IncreasePrice(Position).ToString("C"))
    Next

End Sub

End Class