You cannot. It has been removed in 2007+. BUT you can use the Windows API and VB to get the Network Used Id.
Private Declare Function apiGetUserName _
Lib "Advapi32" _
Alias "GetUserNameA" ( _
ByVal Buffer As String, _
BufferSize As Long _
) As Long
Private Sub cmdGetUserName_Click()...