Imports System
Public Class Test
Public Shared Sub Main()
Dim s As String = "foo [123]=ro bar"
Dim i As Integer = s.IndexOf("[")
Dim f As String = s.Substring(i + 1, s.IndexOf("]", i + 1) - i - 1)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQoJCURpbSBzIEFzIFN0cmluZyA9ICJmb28gWzEyM109cm8gYmFyIgoJCURpbSBpIEFzIEludGVnZXIgPSBzLkluZGV4T2YoIlsiKQoJCURpbSBmIEFzIFN0cmluZyA9IHMuU3Vic3RyaW5nKGkgKyAxLCBzLkluZGV4T2YoIl0iLCBpICsgMSkgLSBpIC0gMSkKICAgIAogICAgRW5kIFN1YgoKRW5kIENsYXNz