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