能获得当前机器的名字吗？Excel中（VBA）

1.插入一个新模块，在其中添加如下代码：

'声明 GetComputerName
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (By
Val lpBuffer As String, nSize As Long) As Long
'定义一个获取计算机名字的函数
Public Function GetCName(CName) As Boolean
Dim sComputerName As String ' 计算机的名字
Dim lComputerName As Long
'计算机名字的长度
Dim lResult As Long
'GetComputerName的返回值
Dim RV As Boolean
'GetCName返回值，若为TRUE则表示操作成功
lComputerNameLen = 256
sComputerName = Space(lComputerNameLen)
lResult = GetComputerName(sComputerName, lComputerNameLen)
If lResult <> 0 Then
CName = Left$(sComputerName, lComputerNameLen)
RV = True
Else
RV = False
End If
GetCName = RV
End Function

2.在窗体中添加一命令按钮Command1，双击该按钮并在其中添加如下代码：
Sub Command1_Click ()
DIM CN AS String
x=GetCName (CN)
Print ″This Computer Name is :″,CN
End Sub