Currently I have
codeString &= "matrixDictionary(" & Chr(34) & UCase(Mid(currentPhrase, currentPhrase.Count, 1)) & Chr(34) & &qu