Imports System

Imports System.Text.RegularExpressions

Public Module Module1

    Public Sub Main()

        Dim Color As String = "Color [Indigo]"

        ' Substring() & IndexOf()

        Dim openBracket = Color.IndexOf("[") + 1

        Dim closeBracket = Color.IndexOf("]")

        Console.WriteLine(Color.Substring(openBracket, closeBracket - openBracket))

        ' Replace()

        Console.WriteLine(Color.Replace("Color [", String.Empty).Replace("]", String.Empty))

        ' Regex Replace

        Console.WriteLine(Regex.Replace(Color, "Color \[|\]", String.Empty))

        ' Regex Match

        Console.WriteLine(Regex.Match(Color, "\[(\w+)\]").Groups(1)) 

    End Sub

End Module