vb的回车chr（10）怎么不管用呀

Dim a As Integer, b As Integer
Private Sub Command1_Click()
Dim i As Integer, k As Integer, j As Integer, flag As Integer, p As Integer

For i = 1 To 20
k = Int((b - a + 1) * Rnd + a)
Text1.Text = Text1.Text & chr(10) & k
p = Sqr(k)
flag = 1
If p Mod 2 = 0 And p Mod 3 = 0 Then
flag = 0
End If
j = 2
While j <= k - 1 And flag = 1
If k Mod j = 0 Then
flag = 0
End If
j = j + 1
Wend
If flag = 1 Then
Text2.Text = Text2.Text & chr(10) & k
End If
Next i

End Sub

Private Sub Form_Load()

a = InputBox("请输入初始值", "初始值")
b = InputBox("请输入终止值", "终止值")

End Sub
我已经开了 但就是不行 实在不知道怎么办

vbCrLf=chr(10)+chr(13)?在VB里面？ VB N1=CHR(13)&CHR(10) 是什么意思 在网页中如何表示单引号 比如：Chr(13) & Chr(10) 回车符与换行符 VB中的Chr函数的意思是什么意思？ Vb中，end键的 Chr是多少? vb的回车问题 chr(10)和chr(13)对应html的什么标记 asp---chr(13) chr(10) 换行的问题 VB中的MsgBox函数怎么使用Chr(13)换行? VB中回车的使用方法