Sheets.Add After:=Sheets(Sheets.Count)

Sub Macros1()
Set i = Sheets.Add(Null, Sheets(Sheets.Count), 1, xlWorksheet) 
End Sub

    i:=OrdCOM.Invoke(WorkSheetsToken, 'Add', 0, SheetToken);

    OrdCOM.InitArg();
    OrdCOM.SetArg(to_number(null), 'DISPATCH');
    OrdCOM.SetArg(WorkSheetToken, 'DISPATCH');
    OrdCOM.SetArg(1, 'I2');
    OrdCOM.SetArg(-4167, 'I4');
    i:=OrdCOM.Invoke(WorkSheetsToken, 'Add', 4, RetSheetToken);