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