Have you tried encapsulating your query in a Try... Catch... to capture the error.
de = New DirectoryServices.DirectoryEntry("LDAP://DC=testdomain,DC=local", username, Password)
Catch Ex as Exception
Msgbox("Login Credentials Invalid, Please try again.")
From what i can see from your question this is what you are asking?