列挙 Enum を使用しますPrivate Enum num one = 1 two = 2 three = 3 four = 4End EnumPrivate Sub TestFunc(a As num) Debug.Print "a =" & a '変数a はLong型になりますEnd Sub