[Resolvido] Verifcar nome do usuário do PC

Boa noite.

Estou necessitando descobrir o nome do usuário do Computador, pois meu aplicativo instala um atalho na área de trabalho, sendo assim, cada computador tem um usuário diferente e não consegui achar uma solução para o problema.

O código que uso para criar o atalho é o que demonstro abaixo:

Select Case lblTipo.Caption

 Case Is = "AI"

 lReturn = fCreateShellLink("C:\Documents and Settings\**All Users ou Administrador**\Desktop", _

 "Assuntos Internos", "C:\Arquivos de programas\Assuntos Internos\Controle Effetivo2009.exe", "")

 MsgBox "Atalho do aplicativo <Assuntos Internos> criado com sucesso."