Untitled

This code will allow you to get the computer name.

Option Explicit
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Command1_Click()
CPUName
End Sub
Function CPUName() As String
    Dim sBuffer As String
    Dim lLength As Long
    Dim lReturn As Long

    lLength = 255
    sBuffer = String$(lLength + 1, 0)
    lReturn = GetComputerName(sBuffer, lLength)
    CPUName = Trim$(sBuffer)
Text1 = CPUName

End Function