易マクロ（Module.saikoro）
Dim i As Integer
Sub saikoro()
Randomize
i = Int(Rnd() * 64)
Select Case i
Case 0:
MsgBox "１の卦（乾為天）を見てください"
Case 1:
MsgBox "２の卦（坤為地）を見てください"
Case 2:
MsgBox "３の卦（水雷屯）を見てください"
Case 3:
MsgBox "４の卦（山水蒙）を見てください"
Case 4:
MsgBox "５の卦（水天需）を見てください"
Case 5:
MsgBox "６の卦（天水訟）を見てください"
Case 6:
MsgBox "７の卦（地水師）を見てください"
Case 7:
MsgBox "８の卦（水地比）を見てください"
Case 8:
MsgBox "９の卦（風天小蓄）を見てください"
Case 9:
MsgBox "１０の卦（天沢履）を見てください"
Case 10:
MsgBox "１１の卦（地天泰）を見てください"
Case 11:
MsgBox "１２の卦（天地否）を見てください"
Case 12:
MsgBox "１３の卦（天火同人）を見てください"
Case 13:
MsgBox "１４の卦（火天大有）を見てください"
Case 14:
MsgBox "１５の卦（地山謙）を見てください"
Case 15:
MsgBox "１６の卦（雷地予）を見てください"
Case 16:
MsgBox "１７の卦（沢雷随）を見てください"
Case 17:
MsgBox "１８の卦（山風蟲）を見てください"
Case 18:
MsgBox "１９の卦（地沢臨）を見てください"
Case 19:
MsgBox "２０の卦（風地観）を見てください"
Case 20:
MsgBox "２１の卦（火雷噬□）を見てください"
Case 21:
MsgBox "２２の卦（山火賁）を見てください"
Case 22:
MsgBox "２３の卦（山地剥）を見てください"
Case 23:
MsgBox "２４の卦（地雷復）を見てください"
Case 24:
MsgBox "２５の卦（天雷无妄）を見てください"
Case 25:
MsgBox "２６の卦（山天大畜）を見てください"
Case 26:
MsgBox "２７の卦（山雷頤）を見てください"
Case 27:
MsgBox "２８の卦（沢風大過）を見てください"
Case 28:
MsgBox "２９の卦（坎為水）を見てください"
Case 29:
MsgBox "３０の卦（離為火）を見てください"
Case 30:
MsgBox "３１の卦（沢山咸）を見てください"
Case 31:
MsgBox "３２の卦（雷風恒）を見てください"
Case 32:
MsgBox "３３の卦（天山遯）を見てください"
Case 33:
MsgBox "３４の卦（雷天大壮）を見てください"
Case 34:
MsgBox "３５の卦（火地晋）を見てください"
Case 35:
MsgBox "３６の卦（地火明夷）を見てください"
Case 36:
MsgBox "３７の卦（風火家人）を見てください"
Case 37:
MsgBox "３８の卦（火沢けい）を見てください"
Case 38:
MsgBox "３９の卦（水山蹇）を見てください"
Case 39:
MsgBox "４０の卦（雷水解）を見てください"
Case 40:
MsgBox "４１の卦（山沢損）を見てください"
Case 41:
MsgBox "４２の卦（風雷益）を見てください"
Case 42:
MsgBox "４３の卦（沢天夬）を見てください"
Case 43:
MsgBox "４４の卦（天風逅）を見てください"
Case 44:
MsgBox "４５の卦（沢地萃）を見てください"
Case 45:
MsgBox "４６の卦（地風升）を見てください"
Case 46:
MsgBox "４７の卦（沢水困）を見てください"
Case 47:
MsgBox "４８の卦（水風井）を見てください"
Case 48:
MsgBox "４９の卦（沢火革）を見てください"
Case 49:
MsgBox "５０の卦（火風鼎）を見てください"
Case 50:
MsgBox "５１の卦（震為雷）を見てください"
Case 51:
MsgBox "５２の卦（艮為山）を見てください"
Case 52:
MsgBox "５３の卦（風山漸）を見てください"
Case 53:
MsgBox "５４の卦（雷沢帰妹）を見てください"
Case 54:
MsgBox "５５の卦（雷火豊）を見てください"
Case 55:
MsgBox "５６の卦（火山旅）を見てください"
Case 56:
MsgBox "５７の卦（巽為風）を見てください"
Case 57:
MsgBox "５８の卦（兌為沢）を見てください"
Case 58:
MsgBox "５９の卦（風水渙）を見てください"
Case 59:
MsgBox "６０の卦（水沢節）を見てください"
Case 60:
MsgBox "６１の卦（風沢中孚）を見てください"
Case 61:
MsgBox "６２の卦（雷山小過）を見てください"
Case 62:
MsgBox "６３の卦（水火既済）を見てください"
Case 63:
MsgBox "６４の卦（火水未済）を見てください"
End Select
End Sub
レベルマクロ（Module.saikoro2）
Dim i As Integer
Sub saikoro2()
Randomize
i = Int(Rnd() * 6)
Select Case i
Case 0:
MsgBox "レベル@を見てください"
Case 1:
MsgBox "レベルAを見てください"
Case 2:
MsgBox "レベルBを見てください"
Case 3:
MsgBox "レベルCを見てください"
Case 4:
MsgBox "レベルDを見てください"
Case 5:
MsgBox "レベルEを見てください"
End Select
End Sub