#bas Sub doWork(Data, Index) Select Case Index Case "doCommand" MsgBox sys.dat1 Case "doView" MsgBox sys.bat2 End Select End sub