这段代码有问题吗？

Public Sub FileSave()

Dim i As Integer

Dim a As Integer

On Error Resume Next

Kill "ToolsSet.ini"

On Error Resume 0

Open "ToolsSet.ini" For Output As #3

'MsgBox "1"

    Print #3, CabNumber

    For i = 1 To CabNumber

        Print #3, CabName(i)

        For a = 1 To 12

            Write #3, ButtenName(i * 12 + a - 12)

            'MsgBox "2"

        Next

        For a = 1 To 12

            Write #3, ButtenPath(i * 12 + a - 12)

            'MsgBox "3"

        Next

        For a = 1 To 12

            Write #3, ButtenDiscribe(i * 12 + a - 12)

            'MsgBox "4"

        Next

        For a = 1 To 12

            Write #3, ButtenPicture(i * 12 + a - 12)

            'MsgBox "5"

        Next

        For a = 1 To 12

            Write #3, ButtenHot1(i * 12 + a - 12); ButtenHot2(i * 12 + a - 12)

            'MsgBox "6"

        Next



    Next



Close #3



End Sub