VBScriptに関する質問です。
自作ユーザライブラリでVBScriptでコードを書いて実行したら、
下記太字のコードで構文エラーになりました。
 
やりたいことは、変数aaaを100000000000で割って余りが0なら、aaaを0.9で割り、余りが0でないなら、
aaaを0.85で割り、aaaを割った結果を変数bbbに取得することです。
 
プログラミング初心者なので修正方法を教えてください。よろしくお願いします。
 
--<start of code>-
Select Case Len(CStr(aaaaaa))
   Case 6
      Select Case mod(aaa/100000000000)
          Case 0
             bbb = (aaa * 0.9)
          Case else
             bbb = (aaa * 0.85)
       End Select
    Case Else
       bbb = (aaa * 0.85)
End Select
--<end of code>-