>>906 は間違えて m_sTest としていた
sTest に直したら 1時間くらい終わらなかったのでやめた。

>>907 動けばいいや的なプログラム。
’Form1
Private Sub Form_Load()
　　Dim oPlayers As clsPlayers
　　Set oPlayers = New clsPlayers
　　With oPlayers
　　　　Call .SetTestData
　　　　Call .PrintIt
　　　　Debug.Print ""
　　　　Debug.Print "SortByBattingAverage"
　　　　Call .SortByBattingAverage
　　　　Call .PrintIt
　　　　Debug.Print ""
　　　　Debug.Print "SortByLeague"
　　　　Call .SortByLeague
　　　　Call .PrintIt
　　End With
End Sub