[CG!]

Was hat denn das mit KeyGen zu tun?
Du generierst doch garnichts.

Aber egal.
Da ich nicht weiß welches VB, hier der für VB6.

Option Explicit

Dim Serial As Variant

Private Sub Command1_Click()
    SerialGenerator
End Sub

Private Sub Form_Load()
    SerialGenerator
End Sub

Function SerialGenerator()
    Serial = Array("0815-4711", "007-JB-SUX", "MyG_RuleZ", "and_so_on", "und_so_weiter")
    Me.Text1.Text = Serial(Zufallszahl(0, 4))
End Function

Function Zufallszahl(ByVal Min, ByVal Max)
    Randomize
    Z = Rnd
    Zufallszahl = Int(Min + (Max - Min + 1) * Z)
End Function

Die erste Array Position ist 0, weshalb von 0 bis 4 ausgelesen wird, was dann alle 5 Einträge ergibt.
Je mehr Einträge vorhanden sind, desto weniger wiederholt sich die Ausgabe.

Benötigt 2 Elemente auf der Form:
Knopf: Command1
Text: Text1
Der Code muss dann nur noch in den FormCode eingefügt werden.

Auf die Schnelle zusammen gefrickelt. Also erwarte nicht zuviel.