我的代码中存在无限循环问题，我不知道如何解决

Question

基本上，Words（）数组永远不会超过0，因为将对OriginalChar（）进行重新设置并一次又一次地进行检查，然后将重新添加相似的字符并将其添加到下一个项目中。要做的任务是基本上扫描整个单词列表，将它们全部分割成单个字符，然后在OriginalChar（）数组中找不到单词时，将其添加进去，当频率增加时，频率就增加一个。

谢谢。

我尝试了各种方法，例如在外部重命名，但是除非它在内部，否则它是行不通的，因为它每次在数组中都找不到时会在数组中创建一个新项目。

For i = 0 To Words.Length - 1
        For x = 0 To OriginalChars.Length 'INFINITE LOOP REGARDING LENGTH OF ORIGINALCHAR ARRAY.
            For j = 1 To Words(i).Length
                temp = Mid(Words(i), j, 1)
                If temp <> OriginalChars(x).Symbol Then
                    OriginalChars(SymbolCounter).Symbol = temp
                    OriginalChars(SymbolCounter).Frequency = 1
                    SymbolCounter += 1
                    ReDim Preserve OriginalChars(SymbolCounter)
                ElseIf OriginalChars(x).Symbol = temp Then
                    OriginalChars(x).Frequency += 1
                End If
            Next
        Next
    Next