as
if
else
elseif
end
for
loop
while
until
select
dim
static
private
public
redim
const
sub
function
integer
string
long
byval
boolean
byte
type
then
and
or
not