我反编译的代码段 (2千字)

Sub btn_Register_Click ()
Dim l001C As Integer
Dim l001E As Single
Dim l0020 As Integer
Dim l0022 As String
Dim l0024 As String
' Const mc003C = 1 ' &H1%
' Const mc003E = 2 ' &H2%
' Const mc0046 = 13 ' &HD%
' Const mc0048 = 19 ' &H13%
  If  Trim$(txt_Name.Text) = "" Or Len(Trim$(txt_Name.Text)) < 3 Then
    MsgBox "请输入用户名, 至少三字母!", 48, "聪明搬运工"
    Exit Sub
  End If
  If  Trim$(txt_Code.Text) = "" Then
    MsgBox "请输入注册码!", 48, "聪明搬运工"
    Exit Sub
  End If
  l001E = (Val(Mid$(Trim$(ssp_Id.Caption), 5, 3)) + Val(Right$(Trim$(ssp_Id.Caption), 3))) / 2000
  l0024$ = ""
  For l0020% = 1 To Len(Trim$(txt_Code.Text))
    l0022$ = Mid$(Trim$(txt_Code.Text), l0020%, 1)
    If  l0022$ = "-" Then l0022$ = " "
    l0024$ = l0024$ + l0022$
  Next l0020%
  If  fn0428$("E", Trim$(ssp_Id.Caption), Trim$(txt_Name.Text), l001E) = l0024$ And fn0428$("D", Trim$(ssp_Id.Caption), l0024$, l001E) = Trim$(txt_Name.Text) Then
    If  Dir$("boxman.box") = "" Then
      If  frm_Main.mnu_Sound.Checked Then
        l001C% = extfn009B%("BOXUNDO.WAV", mc003C + mc003E)
      End If
      MsgBox "请向作者注册!", 48, "聪明搬运工"
      End
    End If
    If  frm_Main.mnu_Sound.Checked Then
      l001C% = extfn009B%("BOXWIN.WAV", mc003C + mc003E)
    End If
    gv0008% = 7
    frm_Main.mnu_Scenery(5).Enabled = True
    frm_Main.mnu_Scenery(6).Enabled = True
    frm_Main.mnu_Scenery(7).Enabled = True
    frm_Main.mnu_Scenery(8).Enabled = True
    gv00BC% = True
    MsgBox "注册成功!", 48, "聪明搬运工"
    frm_Main.Caption = "聪明搬运工（注册为" + " " + Trim$(txt_Name.Text) + " " + "）"
    Close
    Open "boxman.box" For Random As #1 Len = 1
    gv00BE% = LOF(1) \ (mc0046 + 1) \ (mc0048 + 1)
    gv00C0$ = "Level"
  Else
    If  frm_Main.mnu_Sound.Checked Then
      l001C% = extfn009B%("BOXUNDO.WAV", mc003C + mc003E)
    End If
    gv00BC% = False
    gv00CC% = gv00CC% + 1
    If  gv00CC% < 5 Then
      MsgBox "注册不成功!", 48, "聪明搬运工"
      Exit Sub
    Else
      MsgBox "五次注册不成功!", 48, "聪明搬运工"
      End
    End If
  End If
  Unload Me
End Sub