Random Array String

does the array(19) have single characters or a few (2 or 3) characters in each index?
if so, all you would need to do is something like:

 

Public Class Form1
 
Dim array() As String = "a,b,c,d,e,f,gh,k,l,mn,op,qr,s,t,u,v,x,y,z".Split(",")
Dim num As Integer = Int(Rnd() * 19) 'random number between 0 and 19 to used for index in array 
Dim rndLength As Integer
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
Dim rndWord As String
 
rndLength = Int(Rnd() * 10) + 1 'random number between 0 and 10 for word length 
rndWord = array(num) 'set initial string value of rndWorld form array value 
 
For n = 0 To rndLength 'setup a loop for word length based on random num 
 
num = Int(Rnd() * 19) 'get new random number for index of array 
rndWord = rndWord & array(num) 'concatenate value to string 
 
Next
 
TextBox1.Text = rndWord
 
End Sub
 
End Class