Dim fullText as string = "The Quick [Brown] fox jumps over the laxy dog."
Dim inBrackets as string = fullText.substring(fullText.IndexOf("["), fullText.IndexOf("]") - fullText.IndexOf("["))
Dim fullText As String = "#1#dennis;peter#2#Matt;Frank#....etc."
Dim inBrackets As String = fullText.Substring(fullText.IndexOf("#1#"), fullText.IndexOf("#") - fullText.IndexOf("#1#"))
Dim inBrackets as String = fullText.SubString(fullText.IndexOf("#1#") + 3)
inBrackets = inBrackets.Substring(0,inBrackets.IndexOf("#"))