Imports System
Public Class Test
Public Shared Sub Main()
Dim aa As String = "smth_343"
Dim bb As String = aa.Split("_")(1)
Dim cc As String = aa.Split("_")(2)
Dim dd As String = aa.Split("_")(3)
MsgBox(bb)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQkKCQlEaW0gYWEgQXMgU3RyaW5nID0gInNtdGhfMzQzIgoJCQoJCURpbSBiYiBBcyBTdHJpbmcgPSBhYS5TcGxpdCgiXyIpKDEpCgkJRGltIGNjIEFzIFN0cmluZyA9IGFhLlNwbGl0KCJfIikoMikKCQlEaW0gZGQgQXMgU3RyaW5nID0gYWEuU3BsaXQoIl8iKSgzKQoJCQoJCU1zZ0JveChiYikJCQoJCQoJCQoJRW5kIFN1YgpFbmQgQ2xhc3M=