VB .Net: TryAgainQuestionForExistItem

    Function TryAgainQuestionForExistItem(ItemName As String, ID As Object) As Boolean
        Console.Clear()
        Console.WriteLine()
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("{0} {1} already Exists, with same ID: ({2})!", vbTab, ItemName, ID)
        Console.ForegroundColor = ConsoleColor.Yellow
        Console.WriteLine("{0} Do you want to try again?", vbTab)
        Console.ForegroundColor = ConsoleColor.White
        Console.Write("{0} Type Y[es] to Accept: ", vbTab)
        Console.ForegroundColor = ConsoleColor.Gray
        Value = Console.ReadLine
        'If Value.Length = 0 Then Return False
        Select Case Value.Trim.ToLower
            Case "y", "yes"
                Console.Clear()
                Return True
            Case Else
                Return False
        End Select
    End Function

https://aparat.com/v/dvbe180