Dim LoginAttempts As Integer Dim currentPassword As String = "House" Private Sub Login(ByVal passwordFromTextBox As String) If Not .