コンピュータ名を取得するには

Private Sub subGetComputerName()

    Debug.Print Environ("COMPUTERNAME")

End Sub

Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal strBuffer As String, lngSize As Long) As Long

Public Const MAX_COMPUTERNAME_LENGTH = 15

Private Sub subGetComputerName()
    Dim strBuffer As String * 16

    GetComputerName strBuffer, Len(strBuffer)

    Debug.Print Left(strBuffer, InStr(1, strBuffer, vbNullChar) - 1)

End Sub