put this in a module
Option Compare Database
Option Explicit
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function TestPcName()
Dim lpBuffer As String, nDummy As Long, nSize As Long
nSize = 255
lpBuffer = Space$(nSize)
nDummy = GetComputerName(lpBuffer, nSize)
Debug.Print Left(lpBuffer, nSize)
End Function
PaulF