Macro To Join Two Columns With Delimiters?

I'm trying to write code to join two columns of data, and then join all of those into one cell.CA

California

DE
Delaware

CT
Connecticut

I want to be able to run the macro and have it put {"CA":"California","DE":"Delaware","CT":"Connecticut"} into cell C1.

I was thinking that this would have to be a two part macro. First, it would take each specific row and join CA and California and add the colon, quotation marks, and the comma, and put it Column C. Then, after it's gone through every row, it would join every cell in column C together.

This is what I've written so far:

VB:
Sub test1()
Dim r As Range
Dim lr As Integer

[Code]....

Now I need to figure out the second part. How do I then take all of the join cells in column C and join them together, adding the curly braces at the beginning and the end, and removing the comma from the very last row?