[Resolvido]Retornar o nome do usuário logado

Senhores

Estou com um problemão, tinha um módulo que usava no access onde retornava o nome do usuário logado na rede, porém no microsoft access 2013 não esta funcionando. O que esta errado, podem me ajudar?

'Segue abaixo como esta no módulo e não esta mais funcionando, a parte em vermelho acredito que esta o ṕroblema.

Option Compare Database
Option Explicit

'Modos de abertura do arquivo
Const OFS_MAXPATHNAME = 128
Const OF_CREATE = &H1000
Const OF_READ = &H0
Const OF_WRITE = &H1

'OpenFile() Structure
Type OFSTRUCT
   cBytes                      As Byte
   fFixedDisk                  As Byte
   nErrCode                    As Integer
   Reserved1                   As Integer
   Reserved2                   As Integer
   szPathName(OFS_MAXPATHNAME) As Byte
End Type

Declare Function LZOpenFile Lib "lz32.dll" Alias "LZOpenFileA" (ByVal lpszFile As String, lpOf As OFSTRUCT, ByVal style As Long) As Long
Declare Function LZRead Lib "lz32.dll" (ByVal hfFile As Long, ByVal lpvBuf As String, ByVal cbread As Long) As Long
Declare Sub LZClose Lib "lz32.dll" (ByVal hfFile As Long)


' Retorna o nome do usuário na rede (logado)
' Retorna o nome da máquina

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
   "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Declare Function apiGetComputerName Lib "kernel32" Alias _
   "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long


Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
   strUserName = String$(254, 0)
   lngLen = 255
   lngX = apiGetUserName(strUserName, lngLen)
   If (lngX > 0) Then
       fOSUserName = Left$(strUserName, lngLen - 1)
   Else
       fOSUserName = vbNullString
   End If
End Function

Function fOSMachineName() As String
'Returns the computername
Dim lngLen As Long, lngX As Long
Dim strCompName As String
   lngLen = 16
   strCompName = String$(lngLen, 0)
   lngX = apiGetComputerName(strCompName, lngLen)
   If lngX <> 0 Then
       fOSMachineName = Left$(strCompName, lngLen)
   Else
       fOSMachineName = ""
   End If
End Function

Obrigado

Valeu,

Resolvido o problema de todos os banco na empresa, muito obrigado mesmo.

Abraços