如何用VBS操作這個選擇元素

Dim a a=inputbox（“隨便填寫“）A = int（A）選擇Case A Case 6，7，8，9 msgbox（“OK“）Case 10，11，12，13。15 msgbox（“普通”）第16、17、18、19、20msgbox（“正常”）第21、22、23、24、25 msgbox。