Dim UserName As String = System.Web.HttpContext.Current.User.Identity.Name
MsgBox(UserName)