Sub and Function.

Environment: Office(97)
I have managed to make a "CallByName" that calls a Sub with no arguments. I am using Application.OnTime to run a Sub/function by name. The CallByName sub will be put in another module. Does anyone know if there is a general way to send some parameters to the sub being called in CallByName? Any ideas at all?
I want the sub CallByName to be a general sub.

Code:

---

Sub test()
    CallByName "myfunc"
End Sub

Sub myfunc()
    Dim a As Long
    MsgBox "U called, sire?"
End Sub

Sub CallByName(SubName As String)
    Application.OnTime When:=Now, Name:=SubName
End Sub

---