SQL case when 语句转化为 VB case 语句，求各位大佬帮忙！！

[qq_42101986]

select 客户名称,客户基本信息.客户ID,
注册资金=
case when 客户基本信息.注册资金>=800 then '5'
when 客户基本信息.注册资金<800 and 客户基本信息.注册资金>=600 then '4'
when 客户基本信息.注册资金<600 and 客户基本信息.注册资金>=400 then '3'
when 客户基本信息.注册资金<400 and 客户基本信息.注册资金>=200 then '2'
else 1
end from 客户基本信息

[赵4老师]

select case 客户基本信息.注册资金
case Is >=800
    注册资金="5"
case 600 to 799
    注册资金="4"
case 400 to 599
    注册资金="3"
case 200 to 399
    注册资金="2"
case else
    注册资金="1"
end select