WIN NT User ID

Answer:
The following code works just fine:

 
Private Declare Function GetUserName _
   Lib "advapi32.dll" Alias "GetUserNameA" _
   (ByVal lpBuffer As String, _
    nSize As Long) As Long

Private Sub Command1_Click()
   Dim p_strBuffer                     As String
   Dim p_lngBufSize                    As Long

'    Retrieve the curent user's name from the
   '     operating system
   p_strBuffer = Space$(255)
   p_lngBufSize = Len(p_strBuffer)
   GetUserName p_strBuffer, p_lngBufSize
   
   ' If failed, then just put in a blank
   ' Otherwise, fill in user name on the form
   If p_lngBufSize > 0 Then
      Debug.Print "Name: " & Left$(p_strBuffer, p_lngBufSize)
   Else
      Debug.Print "Name: " & "Unknown"
   End If
End Sub