excel的vba转vb6.0

[yy0481]

Columns("A:C").Select
ActiveWorkbook.Worksheets("SONY总表").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("SONY总表").Sort.SortFields.Add Key:=Range( _
"A2:A10237"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("SONY总表").Sort.SortFields.Add Key:=Range( _
"B2:B10237"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("SONY总表").Sort
.SetRange Range("A1:C10237")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
上面是我录制的一个vba功能是排序ABC列按A列主B列次。请问这个用VB怎么改。我vb的打开代码是
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(App.Path & "\123.xls", , ReadOnly:=True)
Set xlSheet = xlBook.Worksheets(1)