Json array to upper case

Private Shared Function Serialize(ByVal jObj As JToken) As String
    If jObj.Type = JTokenType.String Then
        Return "" & jObj.Value(Of String)() & ""
    End If

    Dim serializedString As StringBuilder = New StringBuilder()

    For Each item In jObj.Children().ToList

        If item.Type <> JTokenType.Array Then
            Dim jObjItem = item.ToObject(Of JObject)()
            For Each itemKeyPair In jObjItem
                Dim itemname As String = itemKeyPair.Key.ToString
                Dim itemKeyVALUE As String = itemKeyPair.Value.ToString

                If jObjItem.First.Root(itemname).Type = JTokenType.Array Then
                    ' For Each arrval In jObj.Children().First.Root.First(itemname).ToList
                    'MessageBox.Show(arrval.Children.First.Root.First(itemname).ToString)
                    For i As Integer = 1 To jObjItem.First.Count 'arrval.Root.First
                        serializedString.Append(Chr(34) & itemname.ToUpper & Chr(34))
                        serializedString.Append(Chr(34) & itemname.ToUpper & Chr(34) & Chr(34) & itemKeyVALUE.ToUpper & Chr(34))

                    Next

                    'Next
                Else
                    serializedString.Append(itemname.ToUpper)
                    serializedString.Append(Chr(34) & itemKeyVALUE.ToUpper & Chr(34))

                End If

            Next
        End If
    Next

    Return serializedString.ToString()

Private Shared Function Serialize(ByVal jObj As JToken) As String
    If jObj.Type = JTokenType.String Then
        Return "" & jObj.Value(Of String)() & ""
    End If

    Dim serializedString As StringBuilder = New StringBuilder()

    For Each item In jObj.Children().ToList

        If item.Type <> JTokenType.Array Then
            Dim jObjItem = item.ToObject(Of JObject)()
            For Each itemKeyPair In jObjItem
                Dim itemname As String = itemKeyPair.Key.ToString
                Dim itemKeyVALUE As String = itemKeyPair.Value.ToString

                If jObjItem.First.Root(itemname).Type = JTokenType.Array Then
                    ' For Each arrval In jObj.Children().First.Root.First(itemname).ToList
                    'MessageBox.Show(arrval.Children.First.Root.First(itemname).ToString)
                    For i As Integer = 1 To jObjItem.First.Count 'arrval.Root.First
                        serializedString.Append(Chr(34) & itemname.ToUpper & Chr(34))
                        serializedString.Append(Chr(34) & itemname.ToUpper & Chr(34) & Chr(34) & itemKeyVALUE.ToUpper & Chr(34))

                    Next

                    'Next
                Else
                    serializedString.Append(itemname.ToUpper)
                    serializedString.Append(Chr(34) & itemKeyVALUE.ToUpper & Chr(34))

                End If

            Next
        End If
    Next

    Return serializedString.ToString()