Imports System
Imports System.Text.RegularExpressions
 
Public Class Test
	Public Shared Sub Main()
		Dim r As New Regex("<input\s{0,}(?:(name|type|value)=""([^""]+)""\s{0,})+>")
		Dim s As String
		s = "<input type=""hidden"" name=""locale"" value=""us"">"
        If r.IsMatch(s) Then
            For Each m As Match In r.Matches(s)
                Console.WriteLine(m.ToString)
               	For j As Integer = 0 To m.Groups(1).Captures.Count - 1
                   	Console.WriteLine(" -" & m.Groups(1).Captures(j).Value)
                   	Console.WriteLine(" -" & m.Groups(2).Captures(j).Value)
                Next
            Next
        End If
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gciBBcyBOZXcgUmVnZXgoIjxpbnB1dFxzezAsfSg/OihuYW1lfHR5cGV8dmFsdWUpPSIiKFteIiJdKykiIlxzezAsfSkrPiIpCgkJRGltIHMgQXMgU3RyaW5nCgkJcyA9ICI8aW5wdXQgdHlwZT0iImhpZGRlbiIiIG5hbWU9IiJsb2NhbGUiIiB2YWx1ZT0iInVzIiI+IgogICAgICAgIElmIHIuSXNNYXRjaChzKSBUaGVuCiAgICAgICAgICAgIEZvciBFYWNoIG0gQXMgTWF0Y2ggSW4gci5NYXRjaGVzKHMpCiAgICAgICAgICAgICAgICBDb25zb2xlLldyaXRlTGluZShtLlRvU3RyaW5nKQogICAgICAgICAgICAgICAJRm9yIGogQXMgSW50ZWdlciA9IDAgVG8gbS5Hcm91cHMoMSkuQ2FwdHVyZXMuQ291bnQgLSAxCiAgICAgICAgICAgICAgICAgICAJQ29uc29sZS5Xcml0ZUxpbmUoIiAtIiAmIG0uR3JvdXBzKDEpLkNhcHR1cmVzKGopLlZhbHVlKQogICAgICAgICAgICAgICAgICAgCUNvbnNvbGUuV3JpdGVMaW5lKCIgLSIgJiBtLkdyb3VwcygyKS5DYXB0dXJlcyhqKS5WYWx1ZSkKICAgICAgICAgICAgICAgIE5leHQKICAgICAgICAgICAgTmV4dAogICAgICAgIEVuZCBJZgoJRW5kIFN1YgpFbmQgQ2xhc3M=