Найдите ошибки

Private Sub Command1_Click()
 
    myFile = "c:\iskomi.jpg"
 
    Open myFile For Binary As #1
    odnatret = Int(LOF(1) / 3)
    ReDim moiMASSIV(1 To LOF(1))
    For i = 1 To LOF(1)
        Get #1, i, moiMASSIV(i)
    Next i

Option Explicit
Option Compare Text
'
'Программа для разделения и сборки файлов
'© by the Fever Brain 2016
'
Const OneKB& = 1024, MyName = "DivBuild", IOF = MyName & ".io"
Const r& = 90, gen$ = "prt", stic$ = "cut.ico", jpg = "W.jpg", sl$ = "", t$ = ".", s1$ = "(", s2$ = ")"
 
Dim WithEvents cbx1 As ComboBox, WithEvents cbx2 As ComboBox
Dim WithEvents cm1 As CommandButton, WithEvents cm2 As CommandButton
Dim WithEvents ch1 As CheckBox, WithEvents ch2 As CheckBox
Dim WithEvents cm3 As CommandButton, WithEvents ch3 As CheckBox
Dim WithEvents cm4 As CommandButton, WithEvents t1 As Timer
 
Dim im As Image
Dim l1 As Label, l2 As Label
Dim pbxRrg As PictureBox, cm5 As CommandButton
Dim m_hMod&, fldr$, oldD$, sz&, ll&, tt&, w&, hh&, i&, v, cmd$
Dim mfso As Object, mshapp As Object
 
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
 
Sub ObjEnabled(ByVal Exp As Boolean, ParamArray Obj())
    On Error Resume Next
    For Each v In Obj: v.Enabled = Exp: Next
End Sub
 
Sub ProgresActivate(Action As Boolean, Optional ButtonCommand$)
    On Error Resume Next
    If Action Then
        cmd = ButtonCommand
        ObjEnabled 0, Controls(cmd), cbx1, cm1
        cbx2.AddItem cbx2.Text, 0
        cm4.Enabled = 1
        With cm5 'В исходное положение
            .Move 0, 0, r, r * 3 - 45
            .Visible = 1
        End With
        pbxRrg.BackColor = vbWindowBackground
        t1.Interval = 100
    Else
        t1.Interval = 0
        cm4.Enabled = 0
        ObjEnabled 1, Controls(cmd), cbx1, cm1
        cm5.Visible = 0
        pbxRrg.BackColor = vbButtonFace
        Kill IOF
    End If
End Sub
 
Private Sub cm4_Click()
    On Error Resume Next
    DoEvents
    fso.CreateTextFile(IOF).Write "Cancel"
End Sub
 
Private Sub t1_Timer()
    On Error GoTo t1_Timer_Err
    Static s$, b As Boolean, j$(), i&, u&
    With fso
        If .FileExists(IOF) Then
            s = .OpenTextFile(IOF).ReadAll
            Select Case s
            Case "Cancel": ProgresActivate 0 'В режиме отмены
                Select Case cmd
                Case "cm2" 'Удаление начатого сборочного файла
                    j = Split(cbx1.Text, s2): u = UBound(j)
                    If j(u) = t & gen Then
                        ReDim Preserve j(u - 1)
                        s = Join(j, s2): j = Split(s, s1): u = UBound(j)
                        If IsNumeric(j(u)) Then ReDim Preserve j(u - 1): s = Join(j, s1)
                        If .FileExists(s) Then .DeleteFile s, 1
                    End If
                Case "cm3" 'Удаление уже созданных частей
                    For i = 1 To .GetFolder(fldr).Files.Count
                        s = cbx1.Text & s1 & i & s2 & t & gen
                        If .FileExists(s) Then .DeleteFile s, 1
                    Next
                End Select
                fldrRef
            Case "No File": ProgresActivate 0
            Case "End": ProgresActivate 0
                Select Case cmd
                Case "cm2"
                    s = Left(cbx1.Text, InStr(1, cbx1.Text, s1) - 1)
                    If Len(s) > 0 And Len(s) < Len(cbx1.Text) Then cbx1.Text = s
                Case "cm3"
                    s = cbx1.Text & s1 & 1 & s2 & t & gen
                    If fso.FileExists(s) Then cbx1.Text = s
                End Select
                fldrRef
                If ch3.Value > 0 Then PlaySound "Windows Vista Notify.wav", 0, &H1 Or &H20000
            Case Else: j = Split(s)
                If j(0) = "part" Then cm5.Width = pbxRrg.Width / CDbl(j(3) / j(1))
            End Select
        End If
    End With
    Exit Sub
t1_Timer_Err:
End Sub
 
Private Sub cm3_Click() 'Разделение
    Dim del&, s$, Part&, os&, b() As Byte, i&, n&
    Part = cbx2.Text * OneKB
    del = sz \ Part
    If del = 0 Then Exit Sub
    os = sz Mod del
    If del > 50 Then
        If MsgBox("На выходе получиться " & _
            del + Sgn(os) & " частей," & vbLf & _
            "Вы согласны ?", 68, "Внимание") = vbNo Then Exit Sub
    End If
    '=====================
    ProgresActivate 1, "cm3"
    Shell "DivBuild1.exe " & _
            "/Filename=" & cbx1.Text & _
            "/Part=" & Part & _
            "/DelParent=" & Abs(ch1.Value > 0 And ch1.Enabled = True)
    '=====================
End Sub
 
Private Sub cm2_Click() 'Сборка
    Dim ss$
    '=====================
    ProgresActivate 1, "cm2"
    Shell "DivBuild1.exe " & _
            "/Filename=" & cbx1.Text & _
            "/Build=" & 1 & _
            "/DelParts=" & Abs(ch2.Value > 0 And ch2.Enabled = True)
    '====================
    
End Sub
 
Private Sub cbx1_Click()
 
 
    Dim ge As Boolean, fe As Boolean, sys As Boolean, bdel As Boolean
    On Error Resume Next
    With fso
        fe = .FileExists(cbx1.Text)
        ge = .GetExtensionName(cbx1.Text) = gen
        With .GetFile(cbx1.Text)
            sys = .Attributes And 4 'Если системный
            sz = .Size
            bdel = sz \ cbx2.Text * OneKB > 0
        End With
        cm2.Enabled = fe And ge
        cm3.Enabled = fe And (Not cm2.Enabled) And bdel
        cbx2.Enabled = Not (cm2.Enabled)
        ch1.Enabled = fe And (Not ge) And (Not sys)
        ch2.Enabled = fe And ge
        cbx1.ToolTipText = "Файл: " & .GetAbsolutePathName(cbx1.Text) & " .. Размер: " & sz
        cbx2.ToolTipText = "Максимальное значение " & sz \ OneKB & " кб."
    End With
End Sub
 
Private Sub cbx2_Change()
    With cbx2
        If Not IsNumeric(.Text) Then .Text = 0: .SelStart = 0: .SelLength = 255
    End With
    cbx1_Click
End Sub
 
Private Sub cbx2_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case 8
    Case 48 To 57
    Case Else: KeyAscii = 0
    End Select
End Sub
 
Private Sub Form_Initialize()
    m_hMod = LoadLibrary("shell32.dll")
    InitCommonControls
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    'Заходим в первоначальную папку, и сохраняем настройки
    ChDir oldD
    SaveSetting MyName, "Check", "1", ch1.Value
    SaveSetting MyName, "Check", "2", ch2.Value
    SaveSetting MyName, "Check", "3", ch3.Value
    FreeLibrary m_hMod
End Sub
 
Private Sub Form_Resize()
    With Me
        If .WindowState = 1 Then Exit Sub
        .WindowState = 0
        .Width = cm4.Left + cm4.Width + (Me.Width - Me.ScaleWidth) + r * 2
        .Height = cm4.Top + cm4.Height + (Me.Height - Me.ScaleHeight) + r * 2
    End With
End Sub
 
Private Sub cm1_Click()
    On Error GoTo cm1_Click_Err
    sz = 0: cbx1.ToolTipText = ""
    fldr = shapp.BrowseForFolder(0, "Текущая, установленная  папка " & vbLf & fldr, 100, "").self.Path
    fldrRef
    Exit Sub
cm1_Click_Err:
End Sub
 
 
Sub fldrRef()
    'Обновление папки
    Dim v, s$
    ChDir fldr
    s = cbx1.Text
    With fso.GetFolder(fldr)
        cbx1.Clear
        For Each v In .Files
            cbx1.AddItem v.Name
        Next
        If fso.FileExists(s) Then cbx1.Text = s: cbx1_Click Else cbx1.ListIndex = 0
    End With
End Sub
 
Private Property Get shapp() As Object
    If mshapp Is Nothing Then Set mshapp = CreateObject("Shell.Application")
    Set shapp = mshapp
End Property
 
Private Property Get fso() As Object
    If mfso Is Nothing Then Set mfso = CreateObject("scripting.filesystemobject")
    Set fso = mfso
End Property
 
Private Sub cbx1_KeyPress(KeyAscii As Integer): KeyAscii = 0: End Sub
 
Private Sub Form_Load()
    ll = r: tt = r: w = r * 11: hh = r * 2
    oldD = CurDir$
    ChDir App.Path
    On Error Resume Next
    For Each v In Controls: v.Visible = 0: Next
    If fso.FileExists(jpg) Then
        Set im = Controls.Add("vb.image", "im")
        With im
            .Move ll, tt, w, r * 23
            .Stretch = 1
            .Picture = LoadPicture(jpg)
            .Visible = 1
        End With
        ll = ll + w + r
    End If
    Set l1 = Controls.Add("vb.Label", "l1")
    With l1
        .Move ll, tt, w, hh
        .Caption = "Файл:"
        .Visible = 1
    End With
    Set cbx1 = Controls.Add("vb.ComboBox", "cbx1")
    With cbx1
        .Move ll + l1.Width + r, tt, r * 29 ', hh
        .Visible = 1
    End With
    tt = tt + l1.Height + r * 2
    Set l2 = Controls.Add("vb.Label", "l2")
    With l2
        .Move ll, tt, w, hh
        .Caption = "Размер в кб:"
        .Visible = 1
    End With
    Set cbx2 = Controls.Add("vb.ComboBox", "cbx2")
    With cbx2
        .Move ll + l1.Width + r, tt, r * 29 ', hh
        .Text = 1
        .Visible = 1
    End With
    tt = tt + l2.Height + r * 2
    
    Set ch1 = Controls.Add("vb.CheckBox", "ch1")
    With ch1
        .Move ll, tt, r * 40, r * 3
        .Caption = "Удалить родительский файл"
        .Visible = 1
    End With
    tt = tt + l2.Height + r * 2
    Set ch2 = Controls.Add("vb.CheckBox", "ch2")
    With ch2
        .Move ll, tt, r * 40, r * 3
        .Caption = "Удалить части"
        .Visible = 1
    End With
    tt = tt + l2.Height + r * 2
    Set ch3 = Controls.Add("vb.CheckBox", "ch3")
    With ch3
        .Move ll, tt, r * 40, r * 3
        .Caption = "Звуки"
        .Visible = 1
    End With
    tt = tt + l2.Height + r * 2
    Set cm1 = Controls.Add("vb.CommandButton", "cm1")
    With cm1
        .Move ll, tt, r * 13, r * 3
        .Caption = "Папка .."
        .Visible = 1
    End With
    Set cm2 = Controls.Add("vb.CommandButton", "cm2")
    With cm2
        .Move ll + r * 14, tt, r * 13, r * 3
        .Caption = "Собрать"
        .Visible = 1
    End With
    Set cm3 = Controls.Add("vb.CommandButton", "cm3")
    With cm3
        .Move ll + r * 28, tt, r * 13, r * 3
        .Caption = "Разделить"
        .Visible = 1
    End With
    '--------
    ll = r: tt = tt + cm3.Height + r
    Set pbxRrg = Controls.Add("vb.PictureBox", "pbxRrg")
    With pbxRrg
        .Move ll, tt, r * 39, r * 3: ll = ll + .Width + r
        .Enabled = 0
        .Visible = 1
    End With
    Set cm4 = Controls.Add("vb.CommandButton", "cm4")
    With cm4
        .Move ll, tt, r * 13, r * 3
        .Enabled = 0
        .Caption = "Отмена"
        .Visible = 1
    End With
    Set cm5 = Controls.Add("vb.CommandButton", "cm5", pbxRrg)
    With cm5
        .Visible = 0
    End With
    Set t1 = Controls.Add("vb.timer", "t1")
    '--------------
    ch1.Value = GetSetting(MyName, "Check", "1", 0)
    ch2.Value = GetSetting(MyName, "Check", "2", 0)
    ch3.Value = GetSetting(MyName, "Check", "3", 1)
    fldr = App.Path
    fldrRef
    cbx1_Click
    With Me
        .Icon = LoadPicture(stic)
        .Caption = "Разделитель файлов"
        .Left = (Screen.Width - (.Left + .Width)) / 2
        .Top = (Screen.Height - (.Top + .Height)) / 2
    End With
End Sub