VB 得到Windows登入使用者名稱

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

Private Sub Command1_Click()
Dim username As String
Dim result As Long

username = String(255, 0) '分配地址空間
result = GetUserName(username, 255)
If result <> 0 Then
    username = Left(username, InStr(username, Chr(0)) - 1) '去掉多餘的字元
    Print username '顯示使用者名稱
    Print Len(username) '顯示使用者名稱長度
Else
    MsgBox ("取使用者名稱失敗.")
End If
End Sub