Create Dallas Dates .vbs

Dim otl
Set otl = CreateObject("Outlook.Application")
Const olAppointmentItem = 1

Sub CreateGame(Start, EndDate,Name)
Set e1 = otl.CreateItem(olAppointmentItem)
e1.Start = Start
e1.End = EndDate
e1.Subject = Name
' e1.Location = "TV"
e1.Save
End Sub


CreateGame "8/12/2006 9:00PM", "8/12/2006 11:00PM", "DAL @ Seattle"
CreateGame "8/21/2006 7:00PM", "8/21/2006 9:00PM", "DAL New Orleans @ Shreveport, LA (ESPN) "
CreateGame "8/26/2006 7:00PM", "8/26/2006 9:00PM", "DAL SAN FRANCISCO "
CreateGame "8/31/2006 7:00PM", "8/31/2006 9:00PM", "DAL MINNESOTA"
CreateGame "9/10/2006 3:15PM", "9/10/2006 5:15PM", "DAL @ Jacksonville"
CreateGame "9/17/2006 7:15PM", "9/17/2006 9:15PM", "DAL WASHINGTON"
CreateGame "9/24/2006 12:00PM", "9/24/2006 2:00PM", " DAL BYE"
CreateGame "10/1/2006 12:00PM", "10/1/2006 2:00PM", "DAL @ Tennessee"
CreateGame "10/8/2006 3:15PM", "10/8/2006 5:15PM", "DAL @ Philadelphia"
CreateGame "10/15/2006 12:00PM","10/15/2006 2:00PM", "DAL HOUSTON"
CreateGame "10/23/2006 7:30PM", "10/23/2006 9:30PM", "DAL NY GIANTS"
CreateGame "10/29/2006 7:15PM", "10/29/2006 9:15PM", "DAL @ Carolina"
CreateGame "11/5/2006 12:00PM", "11/5/2006 2:00PM", "DAL @ Washington"
CreateGame "11/12/2006 3:15PM", "11/12/2006 5:15PM", "DAL @ Arizona"
CreateGame "11/19/2006 12:00PM","11/19/2006 2:00PM", "DAL INDIANAPOLIS"
CreateGame "11/23/2006 3:15PM", "11/23/2006 5:15PM", "DAL TAMPA BAY"
CreateGame "12/3/2006 12:00PM", "12/3/2006 2:00PM", "DAL @ NY Giants"
CreateGame "12/10/2006 12:00PM","12/10/2006 2:00PM", "DAL NEW ORLEANS"
CreateGame "12/16/2006 7:00PM", "12/16/2006 9:00PM", "DAL @ Atlanta"
CreateGame "12/25/2006 4:00PM", "12/25/2006 6:00PM", "DAL PHILADELPHIA"
CreateGame "12/31/2006 12:00PM","12/31/2006 2:00PM", "DAL DETROIT"

Set otl = Nothing
Msgbox "Finished"