クラス分けは下記の通り。
Select Case グレードコード
Case "A"
クラス = "G1"
No = "01"
Case "B"
クラス = "G2"
No = "02"
Case "C"
クラス = "G3"
No = "03"
Case "D"
クラス = "G"
No = "04"
Case "E" '特別競走
Select Case 競争条件コード 最若年条件
Case "001"
クラス = "100万特"
No = "23"
Case "002"
クラス = "200万特"
No = "22"
Case "003"
クラス = "300万特"
No = "21"
Case "004"
クラス = "400万特別"
No = "20"
Case "005"
クラス = "500万特別"
No = "19"
Case "006"
クラス = "600万特"
No = "18"
Case "007"
クラス = "700万特"
No = "17"
Case "008"
クラス = "800万特"
No = "16"
Case "009"
クラス = "900万特別"
No = "15"
Case "010"
クラス = "1000万特別"
No = "14"
Case "014"
クラス = "1400万特別"
No = "13"
Case "015"
クラス = "1500万特別"
No = "12"
Case "016"
クラス = "1600万特別"
No = "11"
Case "701"
クラス = "新馬特"
No = "24"
Case "702"
クラス = "未出走特"
No = "25"
Case "703"
クラス = "未勝利特"
No = "26"
Case "999"
クラス = "オープン特別"
No = "06"
Case "000"
クラス = "海地特別"
No = "27"
Case Else
クラス = "er"
No = "98"
End Select
Case "F"
クラス = "JG1"
No = "51"
Case "G"
クラス = "JG2"
No = "52"
Case "H"
クラス = "JG3"
No = "53"
Case "L"
クラス = "リステッド"
No = "05"
Case Else
Select Case 競争条件コード 最若年条件
Case "001"
クラス = "100万"
No = "43"
Case "002"
クラス = "200万"
No = "42"
Case "003"
クラス = "300万"
No = "41"
Case "004"
クラス = "400万"
No = "40"
Case "005"
クラス = "500万"
No = "39"
Case "006"
クラス = "600万"
No = "38"
Case "007"
クラス = "700万"
No = "37"
Case "008"
クラス = "800万"
No = "36"
Case "009"
クラス = "900万"
No = "35"
Case "010"
クラス = "1000万"
No = "34"
Case "014"
クラス = "1400万"
No = "33"
Case "015"
クラス = "1500万"
No = "32"
Case "016"
クラス = "1600万"
No = "31"
Case "701"
クラス = "新馬"
No = "44"
Case "702"
クラス = "未出走"
No = "45"
Case "703"
クラス = "未勝利"
No = "46"
Case "999"
クラス = "オープン平"
No = "07"
Case "000"
クラス = "海地"
No = "47"
Case Else
クラス = "er"
No = "99"
End Select
End Selectクラス分け
