Useful if you need to audit accounts.

Imports System.DirectoryServices
Public Shared Function GetUserInfo(ByVal Username As String) As DateTime
        Using Searcher As New DirectorySearcher(New DirectoryEntry)
            Searcher.Filter = "(&(sAMAccountType=805306368)(sAMAccountName=" & Username & "))"
            Searcher.PropertiesToLoad.Add("lastLogon")
            Dim UserAccount As SearchResult = Searcher.FindOne
            Dim RawLastLogon As Int64 = CLng(UserAccount.Properties("lastLogon")(0))
            Dim LastLogonDate As DateTime = DateTime.FromFileTime(RawLastLogon)
            Return LastLogonDate
        End Using
End Function

Usage:

textbox.text = GetUserInfo("username")