Visual Basic project and wearing sanity

Public Structure product
Public productName As String
Public productCode As String
Public stock As Integer
End Structure
-------------------------------------------------------------------
Module Module1

-------------------------------------------------------------------
Public Function showStock(ByRef databaseProducts() As product)


Dim counter As Integer = 0
Dim leaveSpace As Integer
Console.WriteLine("Product" & " " & "Product Code" & " Stock")
Do
leaveSpace = 21 - Len(databaseProducts(counter).productName)

Console.Write((databaseProducts(counter).productName))
For counterTwo = 1 To leaveSpace
Console.Write(" ")
Next counterTwo
Console.Write(databaseProducts(counter).productCode & " " & (databaseProducts(counter).stock))
Console.WriteLine()
counter += 1
Loop While databaseProducts(counter).productName <> ""

End Function
-------------------------------------------------------------------
Public Function searchStock(ByRef databaseProducts() As product)
Console.WriteLine("Enter product to be found")
Dim userFind As String = Console.ReadLine
Dim counter As Integer = 0

While 1 = 1

If databaseProducts(counter).productCode = userFind Then
Console.WriteLine((databaseProducts(counter).productName) & " " & databaseProducts(counter).productCode & " " & (databaseProducts(counter).stock))
Exit While

ElseIf databaseProducts(counter).productCode = "" Then
Console.WriteLine("Product not found")
Exit While

End If
counter += 1
End While

End Function
-------------------------------------------------------------------
Public Function purchaseProduct(ByRef databaseProducts() As product)

Dim counter As Integer = 0
Console.WriteLine("Enter product to be bought")


Dim userFind As String = Console.ReadLine
counter = 0
While 1 = 1
If databaseProducts(counter).productCode = userFind Then
If databaseProducts(counter).stock > 0 Then
databaseProducts(counter).stock -= 1
Console.WriteLine("Purchased " & databaseProducts(counter).productName)
Else
Console.WriteLine("sorry out of stock")
End If
Exit While

ElseIf databaseProducts(counter).productCode = "" Then
Console.WriteLine("Product not found")
Exit While

End If
counter += 1
End While
End Function
-------------------------------------------------------------------
Public Function displayLowStock(ByRef databaseProducts() As product)

Dim reStock As String

Dim counter As Integer = 0
Do
If databaseProducts(counter).stock <= 1 Then
reStock = "Re-Order"
Else
reStock = ""

End If
Console.WriteLine((databaseProducts(counter).productName) & " " & databaseProducts(counter).productCode & " " & (databaseProducts(counter).stock) & " " & reStock)
counter += 1
Loop While databaseProducts(counter + 1).productName <> ""

End Function
-------------------------------------------------------------------
Public Function addProductCode(ByRef databaseProducts() As product)

Dim counter As Integer = 0
Do
databaseProducts(counter).productCode = Left(databaseProducts(counter).productName, 3) + Right(databaseProducts(counter).productName, 3)

counter += 1
Loop While databaseProducts(counter).productName <> ""
End Function
-------------------------------------------------------------------
Public Function MainMenu() As Char

Dim userChoice As Char

Console.WriteLine("Main menu")
Console.WriteLine("F)Find product")
Console.WriteLine("P)Purchase Product")
Console.WriteLine("Q)Quit")
Console.Write("Choice: ")
userChoice = Console.ReadLine()
Return userChoice
End Function
-------------------------------------------------------------------
Public Function addProducts(ByRef databaseProducts() As product)

Dim userEntry As String
Dim counter As Integer = 0
Dim userStockEntry As Integer


Do
Console.WriteLine("Please enter name of stock (S to stop)")
userEntry = Console.ReadLine()
If userEntry = "s" Or userEntry = "S" Then
Exit Function
End If

Console.Write("Please enter stock level: ")
userStockEntry = Console.ReadLine()

databaseProducts(counter).productName = userEntry
databaseProducts(counter).stock = userStockEntry
counter += 1

Loop While counter < 9999
End Function
-------------------------------------------------------------------
Sub Main()

Dim databaseProducts(0 To 9999) As product
Dim userChoice As Char


addProducts(databaseProducts)
addProductCode(databaseProducts)
showStock(databaseProducts)

Do
userChoice = MainMenu()

Select Case userChoice
Case "P"
purchaseProduct(databaseProducts)
Case "F"
searchStock(databaseProducts)
Case "Q"
displayLowStock(databaseProducts)
Exit Do
Case Else
Console.WriteLine("Did not understand your entry !")
End Select



Loop While 1 = 1
Console.ReadLine()
End Sub



End Module