Não sei se te serve mas tente esta dica:
para esta dica vc só referencia o Microsoft WMI Scripting V1.2 Library...
ou vc tb pode tentar usar o environ:
i = 0
Do
i = i + 1
Debug.Print Environ(i)
Loop Until Environ(i) = ""
tb traz uma lista de características do computador...
pra usar uma delas vc faz assim por exemplo:
Debug.Print Environ("COMPUTERNAME")
at+