Dim intLoop As Integer
        Dim blnStartG As Boolean
        Dim intCounter As Integer
        Dim strMedal As String

        Dim intcheck As Integer

        For intLoop = 0 To (lstResults.Items.Count = -1)
            blnStartG = False
            strMedal = lstResults.?????????
            blnStartG = strMedal.StartsWith("G")
            If blnStartG = True Then
                intCounter = intCounter + 1
            End If
            intcheck = intcheck + 1
        Next
        MessageBox.Show("Total amount of gold medals are: " & intCounter & " " & intcheck, "Amount", MessageBoxButtons.OK, MessageBoxIcon.Information)