VB6参数不是可选的

我的代码有问题，我试图用谷歌搜索它，但我没能修复它。我希望有人能帮助我找出我的代码出了什么问题。短暂性脑缺血发作

这是程序9_6_4163C4

Public Sub Proc_9_6_4163C4(arg_C, arg_10, arg_14) '4163C4
          'Data Table: 40170C
          Dim var_120 As Variant
        loc_4161D8:   On Error GoTo loc_4163C2
        loc_4161E1:   var_98 = CVar(arg_C) 'Variant
        loc_4161EB:   var_A8 = CVar(arg_10) 'Variant
        loc_4161F5:   var_C8 = CVar(arg_14) 'Variant
        loc_41620A:   ReDim var_CC(0 To CLng(Len(var_A8)))
        loc_416225:   ReDim var_D0(0 To CLng(Len(var_C8)))
        loc_41623E:   For var_150 = 1 To Len(var_A8): var_E0 = var_150 'Variant
        loc_41626F:     var_CC(CLng(var_E0)) = CByte(Asc(CStr(Mid(var_A8, CLng(var_E0), 1))))
        loc_41627E:   Next var_150 'Variant
        loc_416293:   For var_184 = 1 To Len(var_C8): var_E0 = var_184 'Variant
        loc_4162C4:     var_D0(CLng(var_E0)) = CByte(Asc(CStr(Mid(var_C8, CLng(var_E0), 1))))
        loc_4162D3:   Next var_184 'Variant
        loc_4162DE:   var_F0 = 1 'Variant
        loc_4162E7:   var_100 = 1 'Variant
        loc_4162FA:   For var_1A4 = 1 To Len(var_98): var_E0 = var_1A4 'Variant
        loc_416350:     var_B8 = var_B8 & Chr(CLng(Asc(CStr(Mid(var_98, CLng(var_E0), 1))) Xor CInt(var_CC(CLng(var_F0))) Xor CInt(var_D0(CLng(var_100))))) 'Variant
        loc_41636C:     If (var_F0 = Len(var_A8)) Then
        loc_416374:       var_F0 = 0 'Variant
        loc_416378:     End If
        loc_416384:     If (var_100 = Len(var_C8)) Then
        loc_41638C:       var_100 = 0 'Variant
        loc_416390:     End If
        loc_416398:     var_120 = (var_F0 + 1)
        loc_41639C:     var_F0 = Len(var_C8) 'Variant
        loc_4163A8:     var_120 = (var_100 + 1)
        loc_4163AC:     var_100 = Len(var_C8) 'Variant
        loc_4163B3:   Next var_1A4 'Variant
        loc_4163BE:   var_88 = CStr(var_B8)
        loc_4163C2:   Exit Sub
        End Sub

这是我点击按钮时的代码

        Private Sub Command1_Click()
          Dim var_C0 As Variant
          Dim var_FC As Variant
          Dim var_13C As String
          Dim var_10C As String
        var_88 = Replace("B5BD-BEBA-BBB9-B8B8-BD", "-", vbNullString, 1, -1, 0)
        var_88 = Proc_9_6_4163C4(var_88, CStr(Chr(&HFF) & Chr(&HFE) & Chr(&HFD)))
        For var_EC = 1 To CInt(Len(var_88)): var_E2 = var_EC 'Integer
             If ((var_E2 Mod 4) = 0) Then
              var_13C = "-"
              var_E8 = CStr(CVar(var_E8) & Hex(CVar(Asc(CStr(Mid(var_88, CLng(var_E2), 1))))) & var_13C)
             Else
               var_E8 = CStr(CVar(var_E8) & Hex(CVar(Asc(CStr(Mid(var_88, CLng(var_E2), 1))))))
             End If
             Next var_EC 'Integer
        var_D0 = (Right(var_FC, 1) = var_10C) 'Variant

        Text1.Text = (CStr(IIf(var_D0, CVar(Asc(CStr(Mid(var_88, CLng(var_E2), 1)))), var_E8)))
        End Sub

这条线路有问题<代码>var_88=Proc_9_6_4163C4（var_88，CStr（Chr（&HFF）&Chr（&HFE）&Chr（&HFD））

我尝试在var_88=Proc_9_6_4163C4（var_88，CStr（Chr（&HFF）&Chr（&HFE）&Chr（&HFD））上添加一些设置

我这样写

set var_88=Proc_9_6_4163C4（var_88，CStr（Chr（&HFF）&Chr（&HFE）&Chr（&HFD））

---

但是我还是什么也没有得到。

要调用过程，需要在调用过程中传递3个参数

var_88 = Proc_9_6_4163C4(var_88, CStr(Chr(&HFF) & Chr(&HFE) & Chr(&HFD)))

---

只有2个参数。再向调用传递1个参数。

要调用过程，需要在调用时传递3个参数

var_88 = Proc_9_6_4163C4(var_88, CStr(Chr(&HFF) & Chr(&HFE) & Chr(&HFD)))

---

只有2个参数。再向调用传递一个参数。

函数接受

arg\u C、arg\u 10、arg\u 14

。您没有为

arg\u 14

提供任何内容。该函数采用

arg\u C、arg\u 10、arg\u 14

。您没有为

arg_14

提供任何内容。