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