VB如何在文本框中显示数组中的内容啊，数组为自定义

自定义数据类型为：
Public Const SFEP_UFPDATA_SIZE = (498)
Public Type SFEP_USER_FPDATA
rbData(SFEP_UFPDATA_SIZE - 1) As Byte
End Type

Dim stRegtem As SFEP_USER_FPDATA

nRet = SFEP_GetTemplateForRegister(stTemplates(0), stRegtem)
For i = LBound(stRegtem) To UBound(stRegtem)
Text1.Text = stRegtem(i)
Next

一运行就报编译错误，缺少数组，请问该如何显示在文本框中啊，谢谢。
如何不加
For i = LBound(stRegtem) To UBound(stRegtem)
Text1.Text = stRegtem(i)
Next
这段程序是能够正常完成的，但就在这里报错，谢谢。

For i = LBound(stRegtem) To UBound(stRegtem)
Text1.Text = Text1.text & chr(10) & stRegtem(i)
Next i

private type usrlist ‘自定义数组(格式) name as string number as integer department as string age as integer end type dim lst() as usrlst '定义一个（数组）变量，代表自定义的type格式 private sub form_load() redim lst(0) '这一组可以不用，也可以使用，关系到后续代码的数组lbound运算 end sub private sub command1_click() dim n%, i% i = ubound(lst) + 1 '如果没有预置redim lst(0) ,ubound(lst)会提示出错 redim preserve lst(i) lst(i).number = int(val(text1.text)) lst(i).name = cstr(text2.text) lst(i).department = cstr(text3.text) lst(i).age = int(val(text4.text)) list1.additem lst(i).number & space(6) & lst(i).name & space(6) & lst(i).department & space(7) & lst(i).age end sub