Public Function FindPlayer(ByVal PlayerName As String) As Boolean
        Dim SearchOutcome As Boolean

        For i = 0 To mPlayerList.Count - 1
            If mPlayerList(i).Name = PlayerName Then
                SearchOutcome = True
                Exit For
            Else : SearchOutcome = False
            End If
        Next i
        Return SearchOutcome
    End Function