Delete worksheet

I am using Excel to save information, one worksheet = one set of data. So the workbook has alot of sheets. I want to know how to delete a worksheet in Excel using VB6.

Dim MyXLApp As New Excel.Application
Dim strSheetName As String
MyXLApp.Workbooks.Open FileName:=App.Path & "\compounds.xls"
MyXLApp.Worksheets(CompoundSelected).Activate

MyXLApp.activeworksheet.delete ' This is the problem

MyXLApp.Workbooks.Close
MyXLApp.Quit
Set MyXLApp = Nothing'


I just do not know how to delete a worksheet. Can anyone tell me the correct way of doing this?

Thanks

On Error GoTo 500
FormDelete = InputBox("Select Formulation to be deleted.", "Delete Formulation", "Jayflex")
Dim MyXLApp As New Excel.Application
Dim strSheetName As String
MyXLApp.Workbooks.Open FileName:=App.Path & "\compounds.xls"
MyXLApp.Worksheets(FormDelete).Activate
MyXLApp.Worksheets(FormDelete).Delete
Debug.Print
500
MyXLApp.Workbooks.Close
MyXLApp.Quit
Set MyXLApp = Nothing


I figured it out, but if this seems funny to anyone, please let me know.