あることに関係する一連の定数がたくさんあったとします。それを個々に宣言してもよいですが、定数を列挙型で宣言すると、入力する際にメンバーリストからの入力が可能になります。
それがEnumステートメントを使った宣言方法です。（ただし長整数型のみです）
下記の例は、あまり意味のあるコードではありませんが、利用方法を示すために載せています。

	Option Explicit

	'立方体の各辺の長さ
	Public Enum pCube
    	    pC_Tate = 10
    	    pc_Yoko = 15
    	    pc_Takasa = 7
	End Enum

	Public Sub Sample()

	    Dim cb1 As pCube
	    Dim cb2 As pCube
	    Dim cb3 As pCube
	    Dim myVolume As Long
	    
	    
	    cb1 = pc_Takasa
	    cb2 = pC_Tate
	    cb3 = pc_Yoko
	    myVolume = cb1 * cb2 * cb3
	    MsgBox myVolume
	    
	End Sub