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 acumulador es " & acumulador
    contador = contador + 1
Wend
'biatch
End Sub