Use randomize


form load
textbox.text = ""
'clear the textbox


Command click()
dim str1, str2, str3 as string 'declare the text as string variables
str1="first message"
str2= "second message"
str3 = "str.message"



Dim myValue as integer
Randomize 'initialize the random number generator
MyValue = Int((3 Rnd) + 1)

Select Case MyValue
Case is 1
txtInput.text = str1

Case is 2
txtInput.text = str2

Case else
txtInput.text = str3

End Select

End Sub

"Should do the trick"