Hi Deanp!
Private Sub CommandButton1_Click()
Dim s$
s = InputBox("Pls input ...")
Select Case s
Case "A"
Call testA
Case "B"
Call testB
Case "C"
Call testC
End Select
End Sub
Sub testA()
MsgBox "testA is be called, it will call nextstepA"
Call nextstepA
End Sub
Sub nextstepA()
MsgBox "nextstepA is be called"
End Sub
Sub testB()
MsgBox "testB is be called, it will call nextstepB"
Call nextstepB
End Sub
Sub nextstepB()
MsgBox "nextstepB is be called"
End Sub
Sub testC()
MsgBox "testC is be called, it will call nextstepC"
Call nextstepC
End Sub
Sub nextstepC()
MsgBox "nextstepC is be called"
End Sub