VBA - CMS - Logout nicht vollständig umgesetzt ?!

Dim cvsApp As Object
Dim cvsConn As Object
Dim cvsSrv As Object
Dim Rep As Object
Dim Info As Object, b As Object
Dim logged As Boolean
Dim i, g As Integer
Dim datum, ldatum
Dim ws As Worksheet
Dim wb As Workbook
Public Sub CMSConn()
Set cvsApp = CreateObject("ACSUP.cvsApplication")
Set cvsConn = CreateObject("ACSCN.cvsConnection")
Set cvsSrv = CreateObject("ACSUPSRV.cvsServer")
Set Rep = CreateObject("ACSREP.cvsReport")
datum = Worksheets("00_input FC_").Range("H1").Value
ldatum = DateSerial(Year(Date), Month(datum) + 1, 0)
yourUserName = "UserID"
yourPassword = "Passwort"
SERVERNAME = "ServerIP"
If cvsApp.CreateServer(yourUserName, yourPassword, "", SERVERNAME, False, "ENU", cvsSrv,  _
cvsConn) Then
If cvsConn.Login(yourUserName, yourPassword, SERVERNAME, "ENU") Then
For i = Day(datum) To Day(ldatum)
If i = 1 Then datum = datum Else datum = datum + 1
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Multi-Skill YSA Interval")
If Info Is Nothing Then
MsgBox "It didn't work"
Else
On Error Resume Next
b = cvsSrv.Reports.CreateReport(Info, Rep)
If b Then
Rep.TimeZone = ("Europe/Paris")
Debug.Print Rep.SetProperty("Splits/Skills", "2251;2256;2252")
Debug.Print Rep.SetProperty("Date", datum)
Debug.Print Rep.SetProperty("Times", "00:00-23:45")
b = Rep.ExportData("", 9, 0, False, True, True)
ThisWorkbook.Worksheets.Add.Name = datum
Cells(1, 1).PasteSpecial
Rep.Quit
End If
End If
Next i
End If
End If
Set Info = Nothing
cvsConn.logout
cvsConn.Disconnect
cvsSrv.Connected = False
Set Rep = Nothing
Set cvsSrv = Nothing
Set cvsConn = Nothing
Set cvsApp = Nothing
Call sort
Worksheets("00_Overview_00").Activate
End Sub