Usando la Api GetComputerName
Para conocer el nombre de la PC -tanto en red como no- se puede usar la api GetComputerName
En un módulo o en la sección declaraciones de un form:
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
(todo en la misma línea)
y ahora la función NombrePC llama a la api y nos devuelve el nombre de la máquina
Function NombrePC()
Dim Cadena As String
Dim Retorno As Long
Cadena = Space(255)
Retorno = GetComputerName(Cadena, 255)
NombrePC = Left(Cadena, InStr(1, Cadena, vbNullChar) - 1)
End Function
espero que ésto sea lo que estabas buscando