aqui les dejo este ejemplo que genera numeros y letras aleatoriamente

Private Sub Form_Load()
    cadena = "abcdefghijklmnopqrstuvwxyz"
    cadena = cadena & UCase(cadena)
    cadena = cadena & "1234567980"
End Sub

Private Sub Command1_Click()
    For i = 1 To 12 'aquí pueden poner la cantidad que no sea mayor al len() de la cadena
        Randomize Time
        num = CInt((1 - Len(cadena)) * Rnd + Len(cadena))
        salida = salida & Mid(cadena, num, 1)
    Next i
End Sub