ランダム日付表示（えくする）

これ。

えーとなんかついったでなんか誕生日がランダムで決まって誕生石とかざーって出ないかなー的なことが聞こえたので日付と誕生石機能だけ作った
二十四節気とか誕生日石とかはDBとか使えたら作りたいかなと思いつつ腕が足りない
これだけ作るのにも2時間かかってるし（
※おまけに変なモノがつきました
以下コード（VBA）

Public Function Birthday() As String

Dim Bim As Integer
Dim Bid As Integer
Dim Bimsg As String
Dim Bistn As String

Bim = Int(12 * Rnd + 1)


Select Case Bim


Case 1: Bid = Int(31 * Rnd + 1): Bistn = "ガーネット（柘榴石）"
Case 2: Bid = Int(29 * Rnd + 1): Bistn = "アメジスト（紫水晶）"
Case 3: Bid = Int(31 * Rnd + 1): Bistn = "アクアマリン（藍玉）、コーラル（珊瑚）"
Case 4: Bid = Int(30 * Rnd + 1): Bistn = "ダイヤモンド（金剛石）"
Case 5: Bid = Int(31 * Rnd + 1): Bistn = "エメラルド（翠玉）、ジェイド（翡翠）"
Case 6: Bid = Int(30 * Rnd + 1): Bistn = "パール（真珠）、ムーンストーン（月長石）"
Case 7: Bid = Int(31 * Rnd + 1): Bistn = "ルビー（紅玉）"
Case 8: Bid = Int(31 * Rnd + 1): Bistn = "ペリドット（橄欖石）、サードニックス（紅縞瑪瑙）"
Case 9: Bid = Int(30 * Rnd + 1): Bistn = "サファイア（青玉）"
Case 10: Bid = Int(31 * Rnd + 1): Bistn = "オパール（蛋白石）、トルマリン (電気石)"
Case 11: Bid = Int(30 * Rnd + 1): Bistn = "トパーズ（黄玉）、シトリン（黄水晶）"
Case 12: Bid = Int(31 * Rnd + 1): Bistn = "ターコイズ（トルコ石）、ラピスラズリ (瑠璃､青金石)"

End Select

Bimsg = Bim & "月" & Bid & "日、誕生石は" & Bistn & "です。"

Birthday = Bimsg

End Function

汚ぇコードだ