as
if
else
elseif
end
for
loop
while
until
select
dim
static
redim
const
sub
function
integer
string
long
byval