Option Explicit

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

Private Const MAX_COMPUTERNAME_LENGTH = 15

Sub Demo_GetComputerName()
  Dim strBuffer As String
  Dim lngResult As Long
  Dim nSize     As Long
  Dim strPCName As String

  strBuffer = String$(MAX_COMPUTERNAME_LENGTH + 1, 0)
  nSize = MAX_COMPUTERNAME_LENGTH + 1

  lngResult = GetComputerName(strBuffer, nSize)
  If lngResult = 1 Then
    strPCName = Left$(strBuffer, nSize)
    MsgBox strPCName
  End If
End Sub