Ejecutar un macros unicamente en un determinado PC

'Este sería el código para obtener el nombre
 ' de la computadora y del usuario
' al parecer el grupo de trabajo es un poco más complicado
' pero si lo ocupas lo busco
'Esto seria al inicio del módulo
Private Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function ReturnComputerName() As String
    Dim rString As String * 255, sLen As Long, tString As String
    tString = ""
    On Error Resume Next
       sLen = GetComputerName(rString, 255)
    sLen = InStr(1, rString, Chr(0))
    If sLen > 0 Then
        tString = Left(rString, sLen - 1)
    Else
        tString = rString
    End If
    On Error GoTo 0
    ReturnComputerName = UCase(Trim(tString))
    MsgBox (ReturnComputerName)
    MsgBox Application.UserName
    'Debug.Print Application.UserName
End Function
' Se usuaria de esta forma
Sub checarnombre()
Dim validar As String
validar = ReturnComputerName
If validar = "INICIOMS1" Then
MsgBox ("correr macro")
Else
MsgBox ("no correr macro")
End If
End Sub
' Pueder hacer lo mismo para validar al usuario
' Cualquier duda me avisas y no olvides de calificar la pregunta

Estimado experto, si te fuera posible encontrar el código para que a través del macros determinar el "grupo de trabajo" sería de mucha ayuda.
Pero de esto me surge la idea de la posibilidad de lograr aun más exclusividad para que la macros se ejecute. ! Quizás validando algún número de un componente propio del computador! Como podría ser el ID del disco duro o de otro elemento de la PC.
Me parece que son conocimientos muy interesantes si fuera posible de realizarse. Pero bueno no se si estoy filosofando más de la cuenta.
Gracias hasta luego.