System.Security.Principal.WindowsIdentity.GetCurrent().Name
I also found:
Environment.UserName
or
System.Windows.Forms.SystemInformation.UserName
I cannot try it so check for yourself the result.
Added:
Full user name:
Imports System.DirectoryServices.AccountManagement
Dim userFullName As String = UserPrincipal.Current.DisplayName