请教VBA排序代码转VSTO代码没有反映

mohao

下面图的代码是蓝桥玄霜版主写的VBA代码，我把它转成VSTO代码时，出现没有反映，请教一下怎么解决。

Private Sub Button102_Click(sender As Object, e As RibbonControlEventArgs) Handles Button102.Click
        Dim app As Excel.Application = Globals.ThisAddIn.Application


Dim Arr As  Object
Dim n   As Object

arr ={"YQ", "EQ", "SS", "HD", "QN", "GS", "QB", "GD", "HD", "DY", "KQ", "GG"}
app.Application.AddCustomList(ListArray:=arr)
        n = app.Application.GetCustomListNum(arr)
        app.Range("a1").CurrentRegion.Sort（app.Range("a2"), 1, , , , , , 1, n + 1）
        app.Application.DeleteCustomList(n)

End Sub