Enum の要素数、あるいは最大値が欲しい場合、以下のように書きます。
　また、要素数のほうはそのまま .Length メソッドで取得できますが、最大値のほうは Cast してやらないと .Max メソッドが使えません。

' 要素数を得る
Dim a = [Enum].GetValues(GetType(十干))
Console.WriteLine("要素数 = {0}", a.Length)

' 最大値を得る
Dim b = CType(a, Integer())
Console.WriteLine("最大値 = {0}", b.Max)

　対象の Enum

Enum 十干
    甲 = 0
    乙
    丙
    丁
    戊
    己
    庚
    辛
    壬
    癸
End Enum

　実行結果

要素数 = 10
最大値 = 9
続行するには何かキーを押してください . . .