VB操作题两道，帮我做一下

public function paidui(a() as integer,x as integer,k as integer)
dim i as integer,j as integer, b(2000) as integer
for i=1 to k
if a(i) mod 17 =0 and a(i)mod 37 =0 then
j=j+1:b(j)=a(i)
end if

程序写完了，下面是代码。(整个工程文件你要的话我可以发到你邮箱里面)
新建一个窗体，上面添加一个listbox,两个commandButton,两个textbox
其中
1、listbox和commandbutton1是用来计算17和37整除的数。
2、commandbutotn2用来将text1里面字符串排序后显示在text2中
Option Explicit

Private Sub Command1_Click()
Dim i As Integer
List1.Clear
For i = 100 To 1000
If panduan1(i) Then List1.AddItem i
Next i
End Sub
Private Function panduan1(d1 As Variant) As Boolean
'判断是否能同时被17和37整除的数，
If (d1 Mod 17 = 0) And (d1 Mod 37 = 0) Then
panduan1 = True
Else
panduan1 = False
End If

End Function

Private Sub Command2_Click()
Text2 = sortTxt(Text1.Text)
End Sub

Public Function sortTxt(str1 As String) As String
Dim i