Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim weightlimit As Double = 100
        Dim cheeseInput As Boolean = True
        Dim cheese As String
        Dim weight As Double
        Dim biggest As Double
        Dim bigname As String

        cheese = InputBox("1 Blue" + vbNewLine + "2 Brie" + vbNewLine + "3 Chedder" + vbNewLine + "4 Edam" + vbNewLine + "5 Feta" + vbNewLine + "6 Gorganzola" + vbNewLine + "7 Quit", "Input cheese")

        Do Until cheese = "7"
            If cheese = "1" Then
                cheese = "Blue"
            ElseIf cheese = "2" Then
                cheese = "Brie"
            ElseIf cheese = "3" Then
                cheese = "Cheedar"
            ElseIf cheese = "4" Then
                cheese = "Edam"
            ElseIf cheese = "5" Then
                cheese = "Feta"
            ElseIf cheese = "6" Then
                cheese = "Gorganzola"
            Else : cheeseInput = False
            End If
            If cheeseInput = True Then
                Try
                    weight = CDbl(InputBox("Enter weight of cheese", "Input Cheese Weight"))
                Catch ex As Exception
                    Continue Do
                End Try
                If weight >= weightlimit Then
                    CheeseList.Items.Add(cheese)
                    WeightList.Items.Add(weight)
                    If weight >= biggest Then
                        biggest = weight
                        bigname = cheese
                        PopularBox.Text = bigname
                    End If
                End If
            End If
            cheese = InputBox("1 Blue" + vbNewLine + "2 Brie" + vbNewLine + "3 Chedder" + vbNewLine + "4 Edam" + vbNewLine + "5 Feta" + vbNewLine + "6 Gorganzola" + vbNewLine + "7 Quit", "Input cheese")
        Loop



    End Sub
End Class