ต้องการดึง username ตอน logon จาก window authentication ด้วย vb.net

Dim parts() As String = Split(My.User.Name, "\")
        
Dim username As String = parts(1)
        
MsgBox("ผู้เข้าระบบ " & username)

' Sample for the Environment.UserName property 
Imports System

Class Sample
   Public Shared Sub Main()
      Console.WriteLine()
      '  <-- Keep this information secure! -->
      Console.WriteLine("UserName: {0}", Environment.UserName)
   End Sub 'Main
End Class