Seems to work, though I don't see why you need to kill all of our antiviruses for an application that's allegedly not a virus (also, based on the source, it doesn't really look like a virus to me).
Here's some parts I don't understand about your source.
First off, you have a bunch of identical random string functions, and each of them are linked to a specific field.
What you really ought to do is simply create one random string function, it will keep your source smaller and easier to manage, and will keep your resulting file smaller... So why not just create something like so:
Public Function RandomString(ByVal Type As Boolean, ByVal Length As Integer)
Dim RandomStr As New StringBuilder()
For i = 0 To Length
RandomStr.Append(Chr(New Random(Guid.NewGuid.GetHashCode).Next(48, 5))
Next
If Type = True Then
Return RandomStr.ToString.ToUpper
Else
Return RandomStr.ToString.ToLower
End If
End Function
That's the great thing about functions, once you create them, you can use them repeatedly.
Another thing about the RandomString generation, you don't really need the If-Else and the Type parameters. To me, it looks like your random string function always takes in true, so why not simply always return RandomStr.ToString.ToUpper, as opposed to having extra, unnecessary code. Even at that, why not allow for a mixture of upper and lower case values? That'll be even more apparently "random".
One aesthetic fix, you spelled "character" as "charpter" on the GUI.
The last thing you should consider would be to change the name of the controls on your form, that way instead of saying "TextBox3" (which is rather indiscriminate, and doesn't give you any idea to its use), you could say "txtYear" (which informs you that its a textbox, and that it'll take in the year).
Anyways, all in all, if you did make it all yourself, good work.