silverbolt, você pode criar variáveis Booleans por exemplo:

  dim PrimeiroCmd as boolean

  dim SegundoCmd as boolean

  dim TerceiroCmd as boolean

'no load do form:

Private sub form_load()

    PrimeiroCmd=true

end sub

'e no botão colocar:

Private Sub cmdFaztudo_Click()

    if PrimeiroCmd=true then

     'Realiza primeiro comando

     PrimeiroCmd=false

     SegundoCmd=True

  end if

  if SegundoCmd=true then

     'Realiza segundo comando

     SegundoCmd=false

     TerceiroCmd=True

  end if

  if TerceiroCmd=true then

     'Realiza terceiro comando

     TerceiroCmd=false

     PrimeiroCmd=true

  end if

E assim sucessivamente, valeu?