題目:
我的程式:

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBoxOutput.Text = ""
        Dim InputMsg As String = TextBoxInput.Text
        Dim EnglishWords As Integer = 26
        Dim Character As String() = New String(EnglishWords - 1) {} '(0 ~ [EnglishWords]-1)
        Dim EnglishWordsArray As Integer() = New Integer(EnglishWords - 1) {}
        For IndeedWords = 1 To Len(InputMsg)
            For j As Integer = 0 To EnglishWords - 1
                If LCase(Mid(InputMsg, IndeedWords, 1)) = Chr(j + 97) Then
                    Character(j) += 1
                End If
            Next
        Next
        Dim a = 97 '10進位ASCII
        Dim z = 122
        For o = 0 To EnglishWords - 1
            For i = a To z
                EnglishWordsArray(o) = i
            Next
        Next
        Array.Sort(Character, EnglishWordsArray)
        Array.Reverse(Character)
        Array.Reverse(EnglishWordsArray)
        For Output = 0 To UBound(Character)
            If Character(Output) <> 0 Then
                TextBoxOutput.Text &= Chr(EnglishWordsArray(Output)) & "=" & Character(Output) & ";"
            End If
        Next
    End Sub
End Class

我的結果:
原本以為能正常顯示對應英文和次數
結果無法
可以的話告訴我錯的位置以及原因

第一次修改

Public Class Form1
    Private Sub Sort(sender As Object, e As EventArgs) Handles ButtonSort.Click
        TextBoxOutput.Text = ""
        Dim InputMsg As String = TextBoxInput.Text
        Dim EnglishWords As Integer = 26
        Dim Character As String() = New String(EnglishWords - 1) {}
        Dim EnglishWordsArray As Integer() = New Integer(EnglishWords - 1) {}
        For IndeedWords = 1 To Len(InputMsg)
            For j As Integer = 0 To EnglishWords - 1
                If LCase(Mid(InputMsg, IndeedWords, 1)) = Chr(j + 97) Then
                    Character(j) += 1
                End If
            Next
        Next

        Dim i = 97
        For o = 0 To EnglishWords - 1 Step 1
            EnglishWordsArray(o) = i
            i += 1
        Next

        Array.Sort(Character, EnglishWordsArray)
        Array.Reverse(Character)
        Array.Reverse(EnglishWordsArray)
        For Output = 0 To UBound(Character)
            If Character(Output) <> 0 Then
                TextBoxOutput.Text &= Chr(EnglishWordsArray(Output)) & "=" & Character(Output) & ";  "
            End If
        Next
    End Sub
End Class

能正常運作，但還不是題目要求的所有字元
接下來的疑問是
大寫部分和小寫如何並存以及空格部分
空格 ASCII: 32
大寫A~Z ASCII: 65 ~ 90
小寫a~z ASCII: 67 ~ 122
我是在想直接包32~122
但這樣運算元好像有點多
雖然暴力破解好像不錯用

最後做法

Public Class Form1
    Private Sub Sort(sender As Object, e As EventArgs) Handles ButtonSort.Click
        TextBoxOutput.Text = ""
        Dim InputMsg As String = TextBoxInput.Text
        Dim CharacterCalculation As Integer = 90
        Dim Character As String() = New String(CharacterCalculation - 1) {}
        Dim EnglishWordsArray As Integer() = New Integer(CharacterCalculation - 1) {}
        Dim StartWords As Integer = 32
        For IndeedWords = 1 To Len(InputMsg)
            For j As Integer = 0 To CharacterCalculation - 1
                If Mid(InputMsg, IndeedWords, 1) = Chr(j + StartWords) Then
                    Character(j) += 1
                End If
            Next
        Next

        Dim i = StartWords
        For o = 0 To CharacterCalculation - 1
            EnglishWordsArray(o) = i
            i += 1
        Next

        Array.Sort(Character, EnglishWordsArray)
        Array.Reverse(Character)
        Array.Reverse(EnglishWordsArray)
        For Output = 0 To UBound(Character)
            If Character(Output) <> 0 Then
                TextBoxOutput.Text &= Chr(34) & Chr(EnglishWordsArray(Output)) & Chr(34) & "=" & Character(Output) & ";" & "  "
            End If
        Next
    End Sub
End Class