visual basic script for outook

I have a VB script for outlook calendar that will automatically change the color to one of 4 colors based on the status ie Accepted , declined , tentatively accepted and no response. However I cannot seem to get it working . I want someone who can look at the script and help me with the correct instructions to get it working on my version of outlook . Right now it just turns everything yellow. Here is the script Sub SetAppointmentColor() Dim olApp As [login to view URL] Dim olFolder As [login to view URL] Dim olItems As [login to view URL] Dim olItem As [login to view URL] Dim strText As String Dim bStarted As Boolean Dim i As Long On Error Resume Next Set olApp = GetObject(, "[login to view URL]") If Err <> 0 Then Set olApp = CreateObject("[login to view URL]") bStarted = True End If Set olFolder = [login to view URL](olFolderCalendar) Set olItems = [login to view URL] For i = [login to view URL] To 1 Step -1 Set olItem = olItems(i) Dim acceptedCount As Integer, notResponedCount As Integer, tentativelyAcceptedCount As Integer, declineCount As Integer, responseStatus As Integer acceptedCount = 0 notResponedCount = 0 tentativelyAcceptedCount = 0 declineCount = 0 responseStatus = 0 If [login to view URL] = "test1" Then For j = 0 To [login to view URL] If [login to view URL](j).name <> [login to view URL] Then Select Case [login to view URL](j).MeetingResponseStatus Case olResponseAccepted acceptedCount = acceptedCount + 1 Case olResponseNone notResponedCount = notResponedCount + 1 Case olResponseNotResponded notResponedCount = notResponedCount + 1 Case olResponseTentative 'tentativelyAcceptedCount = tentativelyAcceptedCount + 1 acceptedCount = acceptedCount + 1 Case olResponseDeclined declineCount = declineCount + 1 End Select End If Next j End If ' set default responseStatus = 10000 If acceptedCount + 1 = [login to view URL] Then responseStatus = olResponseAccepted End If If declineCount + 1 = [login to view URL] Then responseStatus = olResponseDeclined End If If acceptedCount + declineCount = 0 Then responseStatus = olResponseNotResponded End If 'if you rename the catagory before, you need change to the corresponding name Select Case responseStatus Case olResponseAccepted [login to view URL] = "Green Category" Case olResponseNotResponded [login to view URL] = "Yellow Category" Case olResponseDeclined [login to view URL] = "Red Category" Case Else [login to view URL] = "Orange Category" End Select [login to view URL] Next i Set olApp = Nothing Set olFolder = Nothing Set olItems = Nothing Set olItem = Nothing End Sub Private Sub Application_Startup() SetAppointmentColor End Sub