如何在Access VBA的“取消隐藏列”对话框中按字母顺序排列字段？

Sub SortFieldsInUnhideColumnsDialog()
    Dim dlg As Access.Dialog
    Dim i As Integer, j As Integer
    Dim temp As String
    Dim fields() As String
    
    ' 获取取消隐藏列对话框
    Set dlg = Application.Dialogs(acDialogUnhideColumns)
    
    ' 获取字段列表
    fields = Split(dlg.ColumnHidden, ";")
    
    ' 使用冒泡排序按字母顺序排列字段
    For i = LBound(fields) To UBound(fields) - 1
        For j = i + 1 To UBound(fields)
            If UCase(fields(i)) > UCase(fields(j)) Then
                temp = fields(i)
                fields(i) = fields(j)
                fields(j) = temp
            End If
        Next j
    Next i
    
    ' 更新对话框中的字段列表
    dlg.ColumnHidden = Join(fields, ";")
    
    ' 显示对话框
    dlg.Show
End Sub