Thanks workmad3
This is what I did... But I was tried to put together something like:
Combo values(cboObject): proTransferFtp; proDeleteSomething;funCountResults;frmList;qryAllData
Select case left(cboObject,3)
case "pro", 'start Procedure
Application.Run cboObject...