[RESOLVED] Serial Codes

[jizzmasterflex]

Hey, I'm trying to make a serial code for my program. Heres what I have so far.

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
 
Private Sub Command2_Click()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim E As Integer
Dim F As Integer
Dim G As Integer
Dim H As Integer
Dim I As Integer
Dim J As Integer
 
A = "5"
B = "3"
J = "1"
I = "2"
H = "9"
C = "7"
D = "8"
G = "0"
F = "4"
E = "6"
 
 
Dim User As String
Dim Correct As String
User = frmLeak.Text2
Correct = modStuff.VolumeSerial("C") * "3.14159236" + Val(293847)
If Correct = User Then
WriteRegistry &H80000001, "software\microsoft\VeNoM\", "Policy", ValString, frmLeak.Text2
Load frmMain
Unload frmLeak
Else
MsgBox "Incorrect Serial.  Please Contact VeNoM!", vbCritical, "Leak!"
Unload frmLeak
End If
End Sub
 
Private Sub Form_Load()
 
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim E As Integer
Dim F As Integer
Dim G As Integer
Dim H As Integer
Dim I As Integer
Dim J As Integer
 
A = "5"
B = "3"
J = "1"
I = "2"
H = "9"
C = "7"
D = "8"
G = "0"
F = "4"
E = "6"
 
If KeyExists(&H80000001, "software\microsoft\VeNoM\") = True Then
Dim User As String
Dim Correct As String
User = modReg.ReadRegistry(&H80000001, "software\microsoft\VeNoM\", "Policy", False)
Correct = modStuff.VolumeSerial("C") * "3.14159236" + Val(293847)
If Correct = User Then
Load frmMain
Unload frmLeak
Else
Load frmLeak
End If
Else
Load frmLeak
End If
End Sub

My question is...how do I make it so that it shows the letters and not the numbers. If all it shows is the numbers..then it will be very easy to crack...but if it shows letters...it will be much harder.

Thanks,
jizz