WriteLineC - TizzyT

    Sub WriteLineC(ByVal Text As String, ByVal Color As ConsoleColor, Optional RevertColor As Boolean = True)
        Dim crntC As ConsoleColor = Console.ForegroundColor
        Console.ForegroundColor = Color
        Console.WriteLine(Text)
        If RevertColor Then Console.ForegroundColor = crntC
    End Sub