[Resolvido]Ajuda com esse Código VBA de Backup

Olá pessoal, mais uma vez estou aki para pedir ajuda de vocês, estou usando esse código para fazer Backup do meu bancos de dados e ele esta funcionado perfeitamente, só que quando não é o Administrador que esta logado ele não realiza o Backup, até ai tudo perfeito, só eu queria colocar uma MsgBox informado que o usuário não tem permição para fazer o Backup, quando não for o administrador que estiver logado e eu não estou conseguindo, alguem pode mim ajudar fico muito agradecido.

Código:

   If MsgBox(getUsuarioAtual & ", deseja realmente fazer Backup?", vbQuestion + vbYesNo, "Sair") = vbYes Then
        If getGrupoUsuarioAtual = "Administrador" Then
        Dim CopiaSegura As Object
        Dim Caminho As String
        Caminho = "E:\" & "\Backup_SICAF_"
            Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
            CopiaSegura.CopyFile CurrentProject.Path & "\SICAF.accdr", Caminho & Format(Now, "ddmmyyyy") & ".accdr"
        MsgBox "Backup realizado com sucesso.", vbInformation, "Backup"
        End If
    End If

Basta inserir um Else com a Msgbox e um Exit Sub para morrer nesse momento.

Código:

  If MsgBox(getUsuarioAtual & ", deseja realmente fazer Backup?", vbQuestion + vbYesNo, "Sair") = vbYes Then
        If getGrupoUsuarioAtual = "Administrador" Then
        Dim CopiaSegura As Object
        Dim Caminho As String
        Caminho = "E:\" & "\Backup_SICAF_"
            Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
            CopiaSegura.CopyFile CurrentProject.Path & "\SICAF.accdr", Caminho & Format(Now, "ddmmyyyy") & ".accdr"
        MsgBox "Backup realizado com sucesso.", vbInformation, "Backup"
        Else
        MsgBox getUsuarioAtual & " não tem permissão para realizar backup.", vbCritical, "Alerta"
        Exit Sub
        End If
    End If


Valeu amigo ficou perfeito, muito abrigado.

Obrigado pelo retorno o forum agradece.

Boa noite,

Meu Bd esta na pasta igual o da função conforme segue abaixo, não sei pq ficando dando erro:

Erro em tempo de execução '52'

Nome ou número de arquivo incorreto.

Function BackBD()
Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "D:\FOLHA2017\Backup\" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "D:\FOLHA2017\FOLHA2017.accdb", Caminho & Format(Now, "_ddmmyyyy") & ".accdb"
End Function

Att.