Veja se está desabilitado, use isto:
If App.LogMode = vbLogToNT Then
'vai pro event view
ElseIf App.LogMode = vbLogOff Then
MsgBox "Geração de logs desativada"
Exit Sub
Else
If App.LogPath = "" Then
MsgBox "Geração de logs desativada"
Exit Sub
End If
MsgBox "Log gravado em :" & vbCrLf & App.LogPath
End If
'tudo correu bem
App.LogEvent "Teste", 1