新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Declare Function WNetGetUser Lib "mpr" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long

Private Function NetUserName() As String
    ' 返回用户名，如果用户未登录，则返回""。
    Dim i As Long
    Dim UserName As String * 255

    i = WNetGetUser("", UserName, 255)

    If i = 0 Then
        NetUserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
    Else
        NetUserName = ""
    End If
End Function

Private Sub Command1_Click()
    MsgBox NetUserName
End Sub

运行结果：

Administrator