I made this to generate fake keys. To use it "TextBox1.Text = GenerateKey()"
Public Function GenerateKey() As String
Dim Random As New Random
Dim s1, s2, s3, s4, s5, RndKey As String
s1 = Chr(Int(Rnd() * 26) + 65)
s2 = Chr(Int(Rnd() * 26) + 65)
s3 =...