Option Explicit
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, _
             nSize As Long) As Long
Function Ordenador() As String
    Dim Nombre As String * 255, Respuesta As Long, Longitud as Long, Res As Long

    ' Crea Buffer
    Nombre = ""
    Longitud = Len(Nombre)
    Res = GetComputerName(Nombre, Longitud)
    If Res And Longitud > 0 Then
        Ordenador = Left$(Nombre, Longitud)
    Else
        Ordenador = "No encontrado"
    End If
End Function
Private Sub Form_Load()
    MsgBox(Ordenador)
End Sub