ok i want it so when you click on the check box it goes to the cd.showopen and u then pick the file
then all the stuff in the file gets thrown into a decode function and then tellus u to save antoher file for it to print the new data this is wat i got so far and it doesnt want to work, keep gettin mismatch error

Private Sub Option1_Click()
cd.ShowOpen
msg = cd.Filename
If msg = "" Then MsgBox "Pick a File to Decode ~Thieves": Exit Sub
Me.Cls ' Stops program from freezing...
Open cd.Filename For Append As #1
For i = 0 To 11
i = Left(ScKeyDecode(cd.Filename), 12)
Print #1, Random
Next i
End Sub

i = Left(ScKeyDecode(cd.Filename), 12)

Left() does not return an integer value. That's why you're getting mismatch error.

Use Val() to convert things to a numerical based value.

yeah i figured the val, but decided to make a seperate form when u click decode option...
Originall i wanted to
Click on the option whcih would tell u to pick a file and then it would send all the cdkeys in that file through the decode and once it was done it would ask u to save a new file for it to print out all the decode values of those cdkeys...
it got to compilated so i just made it its own form, so now it does everything one by one and u have to put the cdkey in manually.