Visual Basic

Private Sub btnCal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCal.Click

'Variables
Dim StrArr() As String
Dim Str As String
Dim count As Integer
Dim lblStack() As Label
Dim i As Integer


    Str = txtInput.Text 'store string into variable
    StrArr = Str.Split(" ") 'use split to seperate words by space

    For count = 0 To StrArr.Length - 1
        'add user entered values to list box
        lstDisplay.Items.Add(StrArr(count))

    Next    'end for

    count = 0   'set counter back to 0

    For i = 0 To StrArr.Length - 1
        lblDis1.Text = StrArr(0) 'gets the first value from the array
        lblDis2.Text = StrArr(1) 'gets the second value from the array
        lblDis3.Text = StrArr(2) ' and so on and so on...........
        lblDis4.Text = StrArr(3)
        lblDis5.Text = StrArr(4)

    Next 'OKAY THIS IS WHERE I KNOW IF THE USER ENTER ONLY 3 VALUES IN THE TEXT BOX MY PROGRAM WOULD CRASH
         'BECAUSE THE ARRAY ONLY HAS 3 ITEMS BEING STORED IN (0)(1)AND (2) SO WHAT IS A BETTER WAY OF
         'DOING THIS LOOP AND SENDING OUT EACH ELEMENT TO THE LABELS.
End Sub

'This is the Standard Module'
Option Strict On

Module Module1

Public Sub AddToOrder(ByVal intTotalSales As Integer, ByRef dblSubtotal As Double)

        dblSubtotal = dblSubtotal + intTotalSales

End Sub

Public Function Taxes() As Double

Dim dbltaxRate As Double = 0.07
Dim dblSubtotal As Double

Return CDbl(dblSubtotal * dbltaxRate)


End Function


End Module

Option Strict On
Public Class frmDisplay

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click

        'Closes the Bill 
        Me.Close()

    End Sub

    Private Sub frmDisplay_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'When the form is loaded, the date is going to appear as well as the total amount due for all coffee ordered'

        Dim todayDate As Date = Today
        txtBoxDate.Text = todayDate.ToString

        'declare'
        Dim decSalesTax As Decimal
        Dim decSubtotal As Decimal
        Dim dblSubtotal As Double
        Dim intTotalSales As Integer
        
        'calculate'
        decSalesTax = CDec(Taxes())
        decSubtotal = AddToOrder(intTotalSales, dblSubtotal)

        'display'
        txtBoxSubtotal.Text = decSubtotal.ToString
        txtBoxTax.Text = decSalesTax.ToString
        txtBoxTotal.Text = txtBoxSubtotal.Text + txtBoxTax.Text


    End Sub


End Class