Visual Basic - Nombre de la computadora

Hola, me gustaría saber como puedo conseguir el nombre de la computadora, gracias de antemano.

Con las Api's de windows:

Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dLen As Long
Dim strString As String
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dLen, "X")
GetComputerName strString, dLen
strString = Left(strString, dLen)
MsgBox strString
End Sub

Esta, con el API de windows, no la conocía ^^, nunca te acostarás...

Un saludo.

¿"nunca te acostarás"?

"Nunca te acostarás sin saber una cosa más" es un dicho de España

Esta función te devuelve el nombre en una cadena:

Dim Nombre as String
Nombre = Environ$("computername")

Un saludo.

la de pedro es mucho mejor

Gracias a los dos :).