Data Type VisualBasic Script

Sub deleteEmployees()
    ' declare the employees collection
    Dim colEmployees As New Collection
    ' declare a variable to hold each element of a collection
    Dim emp As Variant
    ' Add 3 new employees to the collection
    With colEmployees
        .Add Item:="John Collins", Key:="128634456"
        .Add Item:="Mary Poppins", Key:="223998765"
        .Add Item:="Karen Loza", Key:="120228876", Before:=2
    End With
    ' list the members of the collection
    For Each emp In colEmployees
        Debug.Print emp
    Next
    MsgBox "There are " & colEmployees.Count & " employees."
    
    colEmployees.Remove (3)
    MsgBox colEmployees.Count & " employees remain."
End Sub