Figured it out in case anyone ever have the same question:
What this essentially does is after I put in the User ID, and click away, it populates the next 2 fields with the first name last name. essentially you can add the same thing to the Button
Private Sub TextBox3_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.LostFocus
Dim deSystem As New DirectoryEntry("LDAP:")
Dim dsSystem As New DirectorySearcher(deSystem)
Dim srsystem As SearchResult
If TextBox3.Text = Nothing Then
Exit Sub
Else
Try
dsSystem.Filter = "sAMAccountName=" & TextBox3.Text
dsSystem.PropertiesToLoad.Add("mail") 'email address
dsSystem.PropertiesToLoad.Add("department") 'dept
dsSystem.PropertiesToLoad.Add("physicalDeliveryOfficeName") 'office
dsSystem.PropertiesToLoad.Add("title") 'title, eg programmer1
dsSystem.PropertiesToLoad.Add("telephoneNumber") 'phone
dsSystem.PropertiesToLoad.Add("streetAddress") 'street address
dsSystem.PropertiesToLoad.Add("l") 'city
dsSystem.PropertiesToLoad.Add("st") 'state
dsSystem.PropertiesToLoad.Add("postalCode") 'zip code
dsSystem.PropertiesToLoad.Add("EmployeeId") 'empid
dsSystem.PropertiesToLoad.Add("givenName") '//first name from active directory
dsSystem.PropertiesToLoad.Add("sn") '//lastname from active directory
srsystem = dsSystem.FindOne()
TextBox1.Text = srsystem.Properties("givenName").Item(0).ToString
TextBox2.Text = srsystem.Properties("sn").Item(0).ToString
Catch ex As Exception
MsgBox("Invalid UserID")
End Try
End If
End Sub