Module1 : Module1.bas

Create a module file and declare the GetComputerName function.

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