Para saber qual o usuário da máquina no Visual Basic, basta utilizar a função abaixo em um “Módulo”.

Public Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” (ByVal lpbuffer As String, nSize As Long) As Long

E no form utilizando as rotinas abaixo, chamar “MostraUsuario”.

Public Function sUserID() As String
  Dim sBuffer As String
  Dim lSize As Long
  sBuffer = Space$(255)
  lSize = Len(sBuffer)
  GetUserName sBuffer, lSize
  If lSize > 0 Then
    sUserID = Left$(sBuffer, lSize – 1)
  End If
End Function

Private Sub MostraUsuario()
    MsgBox sUserID
End Sub 

Funciona muito bem!!!