Dim dblTotalValue As Double = 0
    Dim strTicker, strPrice, strShares, strBasis, strValue, strTotalValue As String
    Dim dblPrice, dblshares, dblBasis, dblValue As Double
    Dim intStockCOunt, intIndex As Integer
    Dim lviCurrentPort As New ListViewItem
    Dim exactMatch As Boolean

    Private Sub btnAddStock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddStock.Click
        If txtTicker.Text = "" Then
            MessageBox.Show("Oops.. you left Ticker blank", "Ticker Blank")
            txtTicker.Focus()
        ElseIf txtShares.Text = "" Then
            MessageBox.Show("Oops..you left Shares blank", "Shares Blank")
            txtShares.Focus()
        ElseIf txtPrice.Text = "" Then
            MessageBox.Show("Oops..you left Price blank", "Price Blank")
            txtPrice.Focus()
        End If
        Do While txtTicker.Text <> "" And txtShares.Text <> "" And txtPrice.Text <> ""
            strTicker = Convert.ToString(txtTicker.Text)
            strPrice = Convert.ToString(txtPrice.Text)
            strShares = Convert.ToString(txtShares.Text)
            dblPrice = Convert.ToDouble(strPrice)
            dblshares = Convert.ToDouble(strShares)
            dblBasis = dblPrice * dblshares
            dblValue = dblPrice * dblshares
            dblTotalValue = dblTotalValue + dblValue
            strBasis = Convert.ToString(dblBasis)
            strValue = Convert.ToString(dblValue)
            strTotalValue = Convert.ToString(dblTotalValue)
            lviCurrentPort = New ListViewItem(txtTicker.Text)
            For Each lviCurrentPort In lstCurrentPort.Items
                If txtTicker.Text = lviCurrentPort.Text Then
                    MessageBox.Show("You are already using that ticker, please enter a new one")
                    txtTicker.Focus()
                Else
                    lviCurrentPort.SubItems.Add(Format$(strBasis, "Currency"))
                    lviCurrentPort.SubItems.Add(txtShares.Text)
                    lviCurrentPort.SubItems.Add(Format$(txtPrice.Text, "Currency"))
                    lviCurrentPort.SubItems.Add(Format$(strValue, "Currency"))
                    lstCurrentPort.Items.Add(lviCurrentPort)
                    txtTotalValue.Text = Format$(strTotalValue, "Currency")
                    txtTicker.Text = ""
                    txtShares.Text = ""
                    txtPrice.Text = ""
                    If lstCurrentPort.Items.Count > 10 Then
                        MessageBox.Show("Trial Version only allows 10 entries")
                    End If
                End If
            Next
        Loop
    End Sub