Necesito un ocx

No hace falta un OCX para eso, lo puedes hacer desde API.
Copia esto en el procedimiento general del formulario:
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
Function NombreMaquina() As String
Dim dwLen As Long
Dim strString As String
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
GetComputerName strString, dwLen
strString = Left(strString, dwLen)
NombreMaquina = strString
End Function
ahora lo utilizas asi:
Text1.Text = NombreMaquina
Y listo, eso te entregara el nombre de la maquina.