Miscellany

private sub command1_click()
dim suiche as string
dim numeros as integer
dim acumulador as long
dim contador as integer

numeros=val(inputbox("meta los números"))
acumulador=13
suiche = "si"
contador=0
while contador<numeros
  if suiche = "si" then
    acumulador = acumulador + 3
    suiche = "no"
  else
    acumulador = acumulador - 2
    suiche = "si"
  end if
    msgbox "El número es acumulador"
wend
end sub