Variáveis foram declaradas mas não aparecem na Janela de Variáveis Locais

Boa tarde!

Se alguém puder me ajudar, agradeço.  
As variáveis foram declaradas mas não aparecem na Janela de Variáveis Locais e quando executo o módulo, o log de alterações é criado mas sem os dados de data, usuário, máquina e evento.
Eis o código:

Option Compare Database
Option Explicit
Function CriarLOG(Evento As String)
On Error GoTo TratarErro
Dim DataHora As Variant
Dim Usuario As String
Dim Maquina As String
Dim Arquivo As String

DataHora = Date
Usuario = Environ("username")
Maquina = Environ("computername")

Arquivo = CriarArquivoLOG

Open Arquivo For Append As #1
   Print #1, DataHora & ";" & Usuario & ";" & Maquina; ";" & Evento
Close #1

SairFunction:
Exit Function

TratarErro
MsgBox Err.Description, vbCritical, "Erro " & Err.Number
Resume SairFuncition
End Function
Function CriarArquivoLOG()
On Error GoTo TratarErro
Dim Cabecalho As String
Dim Arquivo As String

Arquivo = "C:\Teste\Meu log_" & Format(Date, "YYYY-MM") & ".log"

If Dir("C:\Teste", vbDirectory) = "" Then MkDir "C:\Teste"
If Dir("C:\Teste\Meu log_" & Format(Date, "YYYY-MM") & ".log", vbDirectory) = "" Then

   Cabecalho = "DATA E HORA;USUÁRIO;MÁQUINA;EVENTO"
   Open Arquivo For Output As #1
       Print #1, Cabecalho
   Close #1

End If

CriarArquivoLOG = Arquivo

SairFunction:
Exit Function

TratarErro:
MsgBox Err.Description, vbCritical, " Erro " & Err.Number
Resume SairFunction
End Function

Declare suas variáveis em vez de DIM como Global em algum módulo existente no seu projeto