For Each で呼び出せるクラスを作りたいです

  Public Function GetEnumerator() As System.Collections.IEnumerator _
    Implements System.Collections.IEnumerable.GetEnumerator
      Return list.GetEnumerator
  End Function

Friend Class まとめクラス 
　　Implements IEnumerable
　　Private _ハッシュ As Hashtable 
　　Private _配列 As ArrayList 

　　Public Sub New() 
　　　　_ハッシュ = New Hashtable 
　　　　_配列 = New ArrayList 
　　　　追加(1, "あ", "いうえお") 
　　　　追加(2, "か", "きくけこ") 
　　　　追加(3, "さ", "しすせそ") 

　　　　Reset() 
　　End Sub 

　　Deault Public ReadOnly Property Item(ByVal 頭文字 As String) As 個別クラス 
　　　　Get 
　　　　　　Return _ハッシュ(頭文字) 
　　　　End Get 
　　End Property 

　　Deault Public ReadOnly Property Item(ByVal 要素数 As Integer) As 個別クラス 
　　　　Get 
　　　　　　Return _配列(要素数) 
　　　　End Get 
　　End Property 

　　Public ReadOnly Property 件数() As Integer 
　　　　Get 
　　　　　　Return _ハッシュ.Count 
　　　　End Get 
　　End Property 

　　Private Sub 追加( _ 
　　　ByVal 番号 As Integer, _ 
　　　ByVal 頭文字 As String, _ 
　　　ByVal データ As String _ 
	)
　　　　Dim c As 個別クラス = New 個別クラス(番号, 頭文字, データ) 
　　　　_ハッシュ.Add(頭文字, c) 
　　　　_配列.Add(c) 
　　End Sub 

    Public Function GetEnumerator() As System.Collections.IEnumerator _
      Implements System.Collections.IEnumerable.GetEnumerator
      Return _配列.GetEnumerator
  End Function
End Class