求教VB高手，我该怎么办啊？

我刚学VB不久，在学到数组时遇到了问题：就是输入任意8个整数进行排序，可怎么也排不出来。我是这样做的：
我打开一个新建工程窗口，用Ctrl+c和Ctrl+v键分别在窗口中建立8个元素的Text1和Text2，然后建立一个按钮。打开代码窗口这样输入代码：
Private sub command1_click()
Dim a(8) As Integir
Dim i As Integer,j As Integer,t As Integer,k As Integer
For k = 1 to 8
a(k) = Val(text1(k-1).Text)
Next k
For i = 1 to 8
For j = 1 to 8 - i - 1
If a(j) > a(j+1) Then
t = a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
For k = 1 to 8
Text2(k-1).Text = a(k)
Next k
End Sub
我试运行后，不能运行，我的问题是出在哪里啊，高手们帮帮我吧？
运行后它的提示是：编译错误：用户定义类型未定义。
我该怎么办啊？
大哥，我按你说的做了，也能运行了，也不会出现用户定义类型未定义之类的提示了，但又出了新的问题：运行后发现，只是把最小的那个数调到最前面，其它的只是随便调了个位置，这又是什么原因啊，我会加分的，这里跪谢了！

求教VB高手，我该怎么办啊？ 异地恋~求教高手，我该怎么办？ 求教我该怎么办 我该怎么办！！！！！！求教！！！！！ 求教VB高手 37.求教VB高手 41.求教VB高手 2.求教VB高手 5.求教VB高手 6.求教VB高手