Public Function DeleteTest(theTest As Variant) As Boolean

' Delete test by ID

    Dim testF As TestFactory
    Dim tID As Integer
    
    On Error GoTo FUNC_ERR
    
    If VarType(theTest) = vbObject Then
        tID = theTest.ID
    Else
        tID = theTest
    End If
    
    Set testF = tdc.TestFactory
    testF.RemoveItem (tID)
    
    DeleteTest = SUCCESS
    
Exit Function
FUNC_ERR:
    DeleteTest = FAILURE
End Function