API中的GetComputerName如何调用?

Question

  在Ｍodule1中,粘贴剪贴板中的GetComputerName声明
  为模块Module1编写子过程Main(),其功能为调用API函数GetComputerName获得计算机名称,显示电脑名称的对话框!
  我现在不知道怎么运行API浏览器,我在外接程序---外接程序管理器,里面没有找到API browers,上网找了一个替代品FoxAPI,可是不知道怎么在VB中使用它,怎么调用函数?怎么显示对话框?  

Answer 1

sub main()
msgbox environ("computername")
end sub

Answer 2

dim strMachinerName as string
strMachinerName = String(255, Chr$(0))
GetComputerName strMachinerName, 255
'remove the unnecessary chr$(0)'
strMachinerName = Left$(strMachinerName, InStr(1, strMachinerName, Chr$(0)) - 1)
msgbox strMachinerName