Private Function SequentialNumbers(ByVal input As String) As Boolean Dim numbers() As Int32 = Array.ConvertAll(input.ToCharArray(), Function(c) Convert.ToInt32(c)) For index As Int32 = 0 To numbers.Length - 2 For nestedIndex As Int32 = index + 1 To numbers.Length - 1 If numbers(index) = numbers(nestedIndex) - 1 Then Return True End If Next Next Return False End Function