Public Class frmHockeyStats

Private Sub btnExit_Click(ByVal sender As , ByVal e As ) Handles 

    End

End Sub

Private Sub btnGetStats_Click(ByVal sender As , ByVal e As ) Handles 

    Dim response As String

    Dim goals As Integer  -1

    Dim assists As Integer  -1

    Dim points As Integer  0

    Dim totalAssists As Integer  0

    Dim totalGoals As Integer  0

    Dim totalPoints As Integer  0

    Dim boolNameCheck As Boolean  False

    While boolNameCheck  False

        If Not () Then

            boolNameCheck  True

        Else

            ("Name must be provided", "Empty...