Public Shared Function TextoAleatorio(Optional ByVal largoMinimo As Int16 = 1, Optional ByVal largoMaximo As Int16 = Int16.MaxValue) As String
        Dim i As Integer
        Dim largo As Integer = NumeroAleatorio(largoMaximo, largoMinimo)
        Dim strTemp As New StringBuilder(largo)
        For i = 0 To largo - 1
            strTemp.Append(Chr(NumeroAleatorio(maximo:=90, minimo:=65)))
        Next
        Return strTemp.ToString()
    End Function

Esta función devuelve un string aleatoreo con un largo aleatoreo, con un mínimo y un máximo.
El uso más común es solo especificar el largo máximo.
Especialmente útil para pruebas unitarias.

NOTA: depende de http://snipplr.com/view/14580/nmero-aleatorio/

String aleatoreo

text

VB.NET