If you implement the procedures as methods of a class, you can use
CallByName ...
'Class1
Option Compare Database
Option Explicit
Public Sub Test01()
MsgBox "This is Test01"
End Sub
Public Sub Test02()
MsgBox "This is Test02"
End Sub
'Standard module
Public Function Test03(ByVal lngFuncNum As Long)
Dim obj As New Class1
CallByName obj, "Test" & Format$(lngFuncNum, "00"), VbMethod
End Function
--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com
The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.