SUB ifthenelse
  dim i as integer
  for i=1 to 10
    if i>5 then
      msgbox(str(i)+">5")
    elseif i>3 then
      msgbox(str(i)+">3")
    else
      msgbox "else"
    end if
    //  if i>9 then msgbox "single line if"
  next
END SUB