Try
            FileOpen( 1 , InputFile, OpenMode.Input)
            Do Until EOF( 1 )
                LineOfText = LineInput( 1 )
                AllText = LineOfText
                'MsgBox(AllText)
            Loop
        Catch
            MsgBox("Ошибка открытия файла *.ini.")
        Finally
            FileClose( 1 )
        End Try

        rc = AllText + "\*.*"
        'MsgBox(rc)


        Kill(rc)

        'i i i i i i i i i i i i i i i i i i i

        OpenFileDialog1.Filter = "Открыть архив (*.rar)|*.rar"
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            RarFile = OpenFileDialog1.FileName
            'MsgBox(RarFile)
        End If

        Shell("""C:\Program Files\WinRAR\rar.exe"" e RarFile AllText")

On Error Resume Next
Kill (rc)
On Error GoTo  0