Vba 用一个字符串中的数据填充行

您好，我正在尝试用字符串中的数据填充“事件”行数。它是一个分隔字符串，值介于：和@之间。下一行数据首先查找与变量“firstkey”匹配的下一个子字符串。我不知道在代码中放置firstkey的最佳位置是什么。目前，我的代码只是重复firstkey之后第一个“事件”后面的第一组数据

y = 2
k = 1
openPos = openPosValue
closePos = InStr(openPos, keys, "@")
jsonValues.Add Mid(keys, openPos + 1, closePos - openPos - 1)
k = k + 1

For fillrows = 1 To Livefixtures

Do Until k = jsonFields.Count - 1
openPos = InStr(closePos + 2, keys, ":") + 1
closePos = InStr(openPos, keys, "@")
If Mid(keys, openPos, closePos - openPos) = "" Then Exit Do
jsonValues.Add Mid(keys, openPos, closePos - openPos)
k = k + 1
Loop
currentcolumn = 1
For Each Item In jsonValues
       ActiveWorkbook.Worksheets("jsonoutput").Cells(y, currentcolumn).Value = Item
       currentcolumn = currentcolumn + 1
       If k = jsonFields.Count Then Set jsonValues = New Collection
Next Item
y = y + 1
fillrows = fillrows + 1
openPos = InStr(closePos, keys, firstkey)
Next fillrows

请包括一个示例“myString”输入