An If... Then... ElseIf Statement without an Else Clause
Sub Check_Password() Dim strPassword As String
BadPassword:
strPassword = "Password"
If Len(strPassword) = 0 Then End
ElseIf Len(strPassword) < 6 Then
Debug.Print "too short."
GoTo BadPassword
ElseIf Len(strPassword) > 15 Then
Debug.Print "too long."
GoTo BadPassword End If