Imports System

Imports System.Collections.Generic

Imports System.Text.RegularExpressions

Public Module Module1

​

    Public Sub Main()

        Dim pattern As String = "(?:"")(?<key>\w+)(?:"":"")(?<value>((\w|\s|\.))+)(?:"",)"

        Dim input As String = """Customer_name"":""JOHN DOE"",""Customer_id"":""9251954"",""Customer_team_id"":""HOST"",""Customer_position_id"":""MGR"",""Customer_short_name"":""Joey"",""Customer_eligibility"":""LT5"",""Customer_page_url"":""google.com"",""Customer_alt_id"":""M7"",""Customer_name"":""JANE DOE"",""Customer_id"":""8734817"",""Customer_team_id"":""HOST"",""Customer_position_id"":""TECH"",""Customer_name"":""JOSEPH DOE"",""Customer_id"":""8675307"""

        Dim matches As MatchCollection = Regex.Matches(input, pattern)

        Dim names As New List(Of String)()

        For Each match As Match In matches

            For index As Integer = 0 To match.Groups.Count - 1

                Dim group As Group = match.Groups.Item(index)

                If (group.Name = "key" AndAlso group.Value = "Customer_name" AndAlso index < match.Groups.Count - 1)

                    Dim valueGroup As Group = match.Groups.Item(index + 1)

                    If (valueGroup.Name = "value") Then

                        names.Add(valueGroup.Value)

                        Exit For

                    End If

                End If

            Next

        Next

Console.WriteLine(String.Join(",", names.ToArray()))

    End Sub

​

End Module