gistfile1.vb

Function IsPasswordValid(ByVal Password As String, ByRef Failures As ArrayList)

Dim Criteria() As InvalidationCriterion = {
  new ShorterThanLength(8),
  new ConsecutiveChars,
  new NoSpecialChars,
  new NoNumbers,
  new NoMixedCase
}

For Each criterion as InvalidationCriterion in Criteria
  If criterion.fails(password)
    Failures.Add(criterion.errorMessage)
  End If
Next

Return (Failures.Length == 0)
End Function