我想写一个注册机程序,序列号:11226212294             11226212294/11=1020564754        1020564754*268=273511354072       273511354072+315-(1020564754的前三位)=273511354285              注册码=273511354285      请大侠帮我写一个用VB写的代码

Private Sub Command1_Click()
    Dim num1 As Double, num2 As Double, num3 As Double
   
    num1 = CDbl(Text1.Text) / 11
    num2 = num1 * 268
    num3 = num2 + 315 - CInt(Left(CStr(num1), 3))
    Text2.Text = num3
End Sub