Visual Basic - Como visualizar y capturar nombre del equipo

Hola, por favor si alguien pudiera decirme como visualizo y/o capturo el nombre del equipo ya que lo necesito almacenar en mi Base de Datos. Gracias de antemano

Para que lo puedas visualizar.
Private Declare Function GetComputerName Lib "Kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim NombreMaquina As String

Private Sub Form_Load()
Text1 = Maquina
End Sub

Function Maquina() As String
Dim strBuffer As String
Dim lngBufSize As Long
Dim lngStatus As Long

lngBufSize = 255
strBuffer = String$(lngBufSize, " ")
lngStatus = GetComputerName(strBuffer, lngBufSize)

If lngStatus <> 0 Then
Maquina = Left(strBuffer, lngBufSize)
Else
Maquina = "X"
End If

End Function

Gracias Miguel por tu ayuda tan valiosa...