WKRK VB Code

Public Class MainForm

    Public budscore As Integer = 0
    Public fedscore As Integer = 0
    Public masterscore As Integer = 0
    Public pepsiscore As Integer = 0

    Private Sub saveButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saveButton.Click

        If commercialListBox.Text = "Budweiser" Then
            budscore = budscore + 1
            budscoreLabel.Text = budscore.ToString
            My.Computer.FileSystem.WriteAllText("budweiser.txt", budscore.ToString, False)
        End If

        If commercialListBox.Text = "FedEx" Then
            fedscore = fedscore + 1
            fedscoreLabel.Text = fedscore.ToString
            My.Computer.FileSystem.WriteAllText("fedex.txt", fedscore.ToString, False)
        End If

        If commercialListBox.Text = "MasterCard" Then
            masterscore = masterscore + 1
            masterscoreLabel.Text = masterscore.ToString
            My.Computer.FileSystem.WriteAllText("mastercard.txt", masterscore.ToString, False)
        End If

        If commercialListBox.Text = "Pepsi" Then
            pepsiscore = pepsiscore + 1
            pepsiscoreLabel.Text = pepsiscore.ToString
            My.Computer.FileSystem.WriteAllText("pepsi.txt", pepsiscore.ToString, False)
        End If

    End Sub

    Private Sub exitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitButton.Click
        Me.Close()
    End Sub

    Private Sub displayButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles displayButton.Click
        Dim bscore As Integer
        Dim fscore As Integer
        Dim mscore As Integer
        Dim pscore As Integer

        If My.Computer.FileSystem.FileExists("budweiser.txt") Then
            bscore = My.Computer.FileSystem.ReadAllText("Budweiser.txt")
            budscoreLabel.Text = bscore.ToString
        End If
        If My.Computer.FileSystem.FileExists("fedex.txt") Then
            fscore = My.Computer.FileSystem.ReadAllText("Fedex.txt")
            fedscoreLabel.Text = fscore.ToString
        End If
        If My.Computer.FileSystem.FileExists("mastercard.txt") Then
            mscore = My.Computer.FileSystem.ReadAllText("MasterCard.txt")
            masterscoreLabel.Text = mscore.ToString
        End If
        If My.Computer.FileSystem.FileExists("pepsi.txt") Then
            pscore = My.Computer.FileSystem.ReadAllText("pepsi.txt")
            pepsiscoreLabel.Text = pscore.ToString
        End If

    End Sub

    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class