hola amigos como interpreto este codigo del decompilador para crear mi keygen en visual basic o c++ y como seria el codigo del keygen en visual basic o c++?

aqui el codigo:

Public Function Check(name) '405410
  Dim var_30 As ProgressBar
  loc_00405496: var_AC = Len(name)
  loc_004054D0: Set var_30 = Me
  loc_004054D7: var_30 = var_30.ControlDefault
  loc_004054E0: var_eax = %fobj
  loc_004054ED: var_2C = var_30.OLEDropMode
  loc_0040550C: var_30.OLEDropMode = var_2C
  loc_0040553E: var_A0 = Len(name)
  loc_00405550: If 00000001h > 0 Then GoTo loc_0040571C
  loc_00405599: Set var_30 = var_74
  loc_004055A0: var_30 = var_30.ControlDefault
  loc_004055A9: var_eax = %fobj
  loc_004055D0: var_78 = name
  loc_004055E8: var_2C = CStr(Mid(name, vbNull, 1))
  loc_004055F5: Asc(var_2C) = Asc(var_2C) + 000Bh
  loc_00405605: var_20 = Asc(var_2C)
  loc_0040562F: Len(name) = Len(name) + 00000013h
  loc_0040563A: Len(name) = Len(name) * var_20
  loc_00405643: Len(name) = Len(name) + var_20
  loc_00405655: Len(name) = Len(name) + Len(name)
  loc_0040565E: var_20 = Len(name)
  loc_00405664: var_88 = var_1C
  loc_0040567F: var_78 = var_20
  loc_00405697: var_2C = CStr(Str(var_20))
  loc_004056A4: var_48 = StrReverse(var_2C)
  loc_004056DD: var_1C = var_1C & Trim(StrReverse(var_2C))
  loc_0040570C: 00000001h = 00000001h + di
  loc_00405717: GoTo loc_00405549
  loc_0040571C: 'Referenced from: 00405550
  loc_00405728: var_24 = var_1C
  loc_00405737: If Len(var_24) < 12 Then GoTo loc_00405761
  loc_0040574E: Mid(var_24, 6, 2) = var_00402754
  loc_0040575F: Mid(var_24, 12, 2) = var_00402754
  loc_00405761: 'Referenced from: 00405737
  loc_0040576E: var_78 = var_24
  loc_004057A2: var_28 = Left(var_24, 17)
  loc_004057AA: GoTo loc_004057E9
  loc_004057B0: If var_4 = 0 Then GoTo loc_004057BB
  loc_004057BB: 'Referenced from: 004057B0
  loc_004057C7: var_eax = %fobj
  loc_004057E8: Exit Sub
  loc_004057E9: 'Referenced from: 004057AA
End Function

muchas gracias de antemano.

llevo esto, no se que mas hacer y como hacerlo funcionar

Private Sub Command1_Click()
Dim Name, Serial As String
    Name = Text1.Text
        Serial = Serial & Hex(Asc(Mid(Name, 1)))
  

necesito mas ayuda es mi primer keygen