ให้VB สุ่ม คำใน textbox ตามที่เราคั่นไว้ ทำไง เช่นใน textbox เขียนว่าtest1,test2,test3,test4,test5 ให้มันสุ่มมาอย่างได้อย่างหนึ่ง ทำไงอะ

    Private Sub btnRandom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRandom.Click
        Dim Test() As String = {"Test1", "Test2", "Test3", "Test4", "Test5", "Test6"}
        Dim R1 As New Random
        Dim Y As Integer = R1.Next(0, Test.Length)
        TextBox1.Text = Test(Y)
    End Sub

'สมมุติว่ามี TextBoxt1.Text ="test1,test2,test3,test4,test5"

Dim StrText As String  
StrText = TextBoxt1.Text.ToString.Split(",")

For i As Int16 = 0 To StrText.Lenght - 1
 MessageBox.Show (StrText(i))
Next i

        Dim Test() As String = Split(TextBox1.Text, ",")
        Dim R1 As New Random
        Dim Y As Integer = R1.Next(0, Test.Length)
        MessageBox.Show(Test(Y))