Cara Membuat Prosedure Generator Nama Secara Acak (Random)

Fungsi untuk membuat nama secara random (acak) - Di bawah ini merupakan prosedur yang digunakan untuk membuat nama secara acak, fungsi ini memiliki satu parameter untuk mengatur jumlah huruf yang akan digenerate, sedangkan nilai defaultnya adalah 4 huruf. Bagaimana fungsi generator nama secara acak atau random, bisa Anda lihat di bawah ini:

Option Explicit 
 
Private Function NamaAcak(Optional k As Integer = 4) As String 
    Dim s(1) As String, l As String 
    Randomize 
    s(0) = ("aiueo") 
    s(1) = ("bcdfghjklmnpqrstvwxyz") 
    For i = 1 To k 
        l = l & Mid(s(i Mod 2), Int((4 * Rnd) + 1), 1) 
    Next 
    NamaAcak = l 
End Function 

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click() 
    MsgBox NamaAcak(10) 'menampilkan nama acak yang memiliki jumlah huruf 10 
    'sedangkan contoh di bawah akan mengenerate 20 nama acak 
    'dengan jumlah huruf 10 karakter 
    Dim i As Integer 
    List1.Clear 
    For i = 1 To 20 
        List1.AddItem NamaAcak(6) 
    Next 
End Sub 

Apakah kegunaan dari generator nama secara acak/random ini? saya juga tidak tahu, mungkin Anda tahu?