I have tried this code to write to the event log with no success. Didn't think it would be that easy. Could someone send me in the right direction.
Dim myLog As New EventLog("")
myLog.Source = "ResidentPortal"
myLog.WriteEntry("Invalid Password Attempt", EventLogEntryType.FailureAudit)