Network User Name from VBA to SQL (1 Viewer)

[GohDiamond]

VBA:
Public Function myNetUSER()
myNetUSER = Environ("username")
End Function

SQL:
SELECT myNetUser() AS NetworkID;

Practical Usage:
SELECT "Profile edited by: " & myNetUser() & " on " & Format(Date(),"m/d/yyyy") AS Authorized;

Result Today:
[ AUTHORIZED ]
Profile edited by: myNetUser on 4/16/2014

Cheers!
Goh