Win32 API. If you've never used it before, the API Text viewer that comes with VB is a neat tool. Through this declaration in somewhere globally visible and have fun
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long