Хотя этот шаг не стоило писать, т.к. это очень примитивная программка. Эта програмка будет по с/н(который пришлет покупатель программы) делать ключ:
На форму кинь кнопку(Caption = "Crack"), 2 текст. поля(в ряд), 2 метки(у первой Caption = "Введите Серийный номер", она находится напротив первого текст. поля, у второй: Caption = "Ключ", напротив второго текст. поля). Вот что у тебя должно получиться: 
Теперь код:
Private Sub Command1_Click()
Text2.Text = Fix(Val(Text1.Text) * 3 + 333 / 2) ' По С/Н узнаем ключ
End Sub
