#bas
Sub doWork(Data, Index)

   Select Case Index
        
   Case "doCommand" 
       
            MsgBox sys.dat1
            
   Case "doView"
            
            MsgBox sys.bat2
                    
   End Select

End sub