Boa tarde amigo !!!
Bem vou usar uma API do Windows para capturar o Nome do Computador atual e mostra-lo em uma Caixa de Mensagem ( MsgBox )
'
'Primeiro, em um módulo declare a API, tudo em uma mesma linha ou use ( _ & )
'
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'
'Agora chame a função em um evento qualquer
'pode ser no LOAD de um form ou no CLICK de um botão
'
'Cria as variáveis que irão armazenar as informações
Dim strNome As String
Dim lretorno as Long
'
strNome = String(255, Chr$(0))
'
'Pega o nome do computador e armazena na variavel lretorno
lretorno= GetComputerName(strNome, 255)
'
'Remove todos os valores nulos chr$(0)
strNome = Left$(strNome, InStr(1, strNome, Chr$(0)) - 1)
'
'Mostra o nome do computador em uma MsgBox (Caixa de Mensagem)
MsgBox strNome
'
'Fim
Tentei...