Tienes que hace rlo siguiente:
primero declarar la funcion externa en Declaracon de funciones globales externas, funcion:
FUNCTION long GetUserNameA(ref string UserName, ref ulong BufferLength) LIBRARY "ADVAPI32.DLL"
despues escribes el siguiente cofigo:
long ll_ret
string ls_UserName
ulong BufferLength = 250
ls_UserName = Space(BufferLength)
ll_ret = GetuserNameA(ls_UserName, BufferLength)
esto debe funcionarte.
Saludos.