Textbox 的小問題

剛在小舖看到一個類似作業題的程式 提問者希望能做到
 -------------------------
請問一個Textbox的小問題 
我在TEXTBOX1裡亂數隨機產生了30筆(1到150的數字)
然後我想將TEXTBOX1裡的一堆數字做分類
 如 TEXTBOX1裡如果有大於70小於90的數
放到 TEXTBOX2裡面 將大於100小於120的數
放到 TEXTBOX3裡面 請問該如何用程式去表達呢?
 我用IF THEN 試了好久一直有錯誤
 希望大大可以幫個小忙3Q
-------------------------

一時手癢  ^^

--------------------------------------


Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'TEXTBOX1裡亂數隨機產生了30筆(1到150的數字)
        Randomize(Now.Second)
        Dim tmpStr As String = Nothing
        TextBox1.Text = Nothing
        TextBox2.Text = Nothing
        TextBox3.Text = Nothing
        For i As Integer = 1 To 30
            tmpStr = Fix(Rnd() * 150) + 1 & " "
            TextBox1.Text += tmpStr
        Next
        '大於70小於90的數 放到 TEXTBOX2裡面
        '大於100小於120的數 放到 TEXTBOX3裡面
        Dim tmpSplit() = Split(TextBox1.Text, " ")
        For j As Integer = 0 To tmpSplit.Length - 1
            Select Case tmpSplit(j)
                Case 70 To 90
                    TextBox2.Text += tmpSplit(j) & " "
                Case 100 To 120
                    TextBox3.Text += tmpSplit(j) & " "
            End Select
        Next
    End Sub
End Class

--------------------------------------