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 End Sub