Re: Can somebody help

"R. Groot Beumer" wrote:

> Hello,
>
> I'm facing a problem within a project of mine. I think there must be a easy
> way to do the following (but I don't know how):
>
> I've made a Sub within my project which triggers numerous events. Below i've
> put an example of a likewise Sub. When I click on the button which triggers
> this Sub-routine, I want to be able to start halfway the sub (for example:
> GoTo STEP7). I've created a public PubStepNumber (integer) which carries the
> stepnumber. My question is: how can I make a good Goto statement using this
> PubStepNumber. I've tried several things (GoTo "STEP" & PubStepNumber ,
> GoTo (format("STEP" & PubStepNumber,""))).
>
> Private Sub buttonclick_Click()
> On Error GoTo Err_buttonclick_Click
>
> STEP0:
> ....
> ...
> goto STEP1
> STEP1:
> ....
> ....
>
> Exit_buttonclick_Click:
> Exit Sub
>
> Err_buttonclick_Click:
> MsgBox Err.Description
> Resume Exit_buttonclick_Click
> End Sub
>
> If there is any one with a suggestion it would be very appriciated
>
> Remco Groot Beumer (Holland)
> info_at_RGBplus.nl

Select Case PubStepNumber

    Case 1

        'code goes here

    Case 2

        'code goes here

    Case 3

        'more code goes here

End Select

Hope this helps

Tony Oakley Received on Sat Jul 21 2001 - 18:32:16 CDT