how about something like
Public Function GetRandomString(ByVal numberOfCharacters As Integer) As String
Dim r As New Random
Dim b(numberOfCharacters) As Byte
For x As Integer = 0 To numberOfCharacters - 1
b(x) = r.Next(32, 126)
Next
Return System.Text.ASCIIEncoding.ASCII.GetString(b)
End Function