SAP Anmeldung via VBA nicht mehr möglich

Hallo,
wir nutzen folgendes vereinfachtes VBA Script um mittels Excel auf SAP zu connecten:

Private Sub Main()
Dim LogonControl As SAPLogonCtrl.SAPLogonControl
Dim R3Connection As SAPLogonCtrl.Connection
Dim retcd As Boolean
Set LogonControl = CreateObject("SAP.LogonControl.1")
Set R3Connection = LogonControl.NewConnection
R3Connection.Client = "600"
R3Connection.ApplicationServer = "DEV1"
R3Connection.Language = "EN"
R3Connection.User = "DsA"
R3Connection.Password = "123"
R3Connection.System = "E01"
R3Connection.SystemNumber = "01"
R3Connection.UseSAPLogonIni = True
retcd = R3Connection.Logon(0, True)
If retcd <> True Then
MsgBox "Logon failed"
Else
MsgBox "ok"
R3Connection.logoff
End If
End Sub

Private Sub Main()
Dim LogonControl As SAPLogonCtrl.SAPLogonControl
Dim R3Connection As SAPLogonCtrl.Connection
Dim retcd As Boolean
Set LogonControl = CreateObject("SAP.LogonControl.1")
Set R3Connection = LogonControl.NewConnection
R3Connection.Client = "600"
R3Connection.ApplicationServer = "DEV1"
R3Connection.Language = "EN"
R3Connection.User = "DsA"
R3Connection.Password = "123"
R3Connection.System = "E01"
R3Connection.SystemNumber = "01"
R3Connection.UseSAPLogonIni = True
retcd = R3Connection.Logon(0, False)
If retcd <> True Then
MsgBox "Logon failed"
Else
MsgBox "ok"
R3Connection.logoff
End If
End Sub