Compile Brick Pack (BBG)

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Find the path to the Blockland folder (in My Documents) by reading the registry
        Dim blpath As String = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Personal", "error") + "\Blockland\Add-Ons" 'Find the path of the Blockland folder (the one in My Documents)
        If blpath = "error\Blockland\Add-Ons" Then 'If the BBG can't find the path, just set ot tp C:\ and show an error
            MsgBox("Blockland Brick Generator v1 couldn't find the location of your My Documents folder. For now, it'll just be placed in C:\.", 0, "Uh-Oh!")
            blpath = "C:\"
        End If
        'Check if the brick pack already exists in the Add-Ons folder
        If My.Computer.FileSystem.FileExists(blpath + "\Brick_" + TextBox1.Text + ".zip") Then
            'If there is, ask the user if it should be overwritten
            If MsgBox("You already have a brick pack named " + TextBox1.Text + "! Do you want to overwrite it?", 4, "Uh-Oh!") = 6 Then
                My.Computer.FileSystem.DeleteFile(blpath + "\Brick_" + TextBox1.Text + ".zip")
                'Have the user give info for description.txt and make sure there aren't any empty strings!
                Dim name As String = InputBox("Here's the last part of making your brick pack: the description. First type your Blockland name in.", "Blockland Brick Generator v1")
                If name = "" Then
                    MsgBox("Yeah, right. I seriously doubt that your name is blank.", 0, "Blockland Brick Generator v1")
                Else
                    Dim description As String = InputBox("Now, type in a short description for your brick pack (for example: A few extra baseplates you can use)", "Blockland Brick Generator")
                    If description = "" Then
                        MsgBox("I'm going to have you try that again.", 0, "Blockland Brick Generator v1")
                    Else
                        Using zip As New Ionic.Zip.ZipFile 'Create a new object to put the files in a .zip folder
                            My.Computer.FileSystem.WriteAllText("C:\server.cs", "//Created with Legojak's Blockland Brick Generator v1" + vbNewLine + vbNewLine, False)
                            For i = 0 To ListBox1.Items.Count - 1 'Do for every item item in the listbox:
                                'Create the server.cs file
                                My.Computer.FileSystem.WriteAllText("C:\server.cs", "datablock fxDTSBrickData (brick" + Mid(Replace(ListBox1.Items(i), " ", ""), 1, InStr(1, Replace(ListBox1.Items(i), " ", ""), "/") - 1) + "Data)" + vbNewLine + "{" + vbNewLine + "   brickFile = " + Chr(34) + "./" + Mid(ListBox1.Items(i), 1, InStr(1, ListBox1.Items(i), "/") - 1) + ".blb" + Chr(34) + ";" + vbNewLine + "   category = " + Chr(34) + Mid(Mid(ListBox1.Items(i), InStr(1, ListBox1.Items(i), "/") + 1), 1, InStr(1, Mid(ListBox1.Items(i), InStr(1, ListBox1.Items(i), "/") + 1), "/") - 1) + Chr(34) + ";" + vbNewLine + "   subCategory = " + Chr(34) + Mid(ListBox1.Items(i), InStr(InStr(ListBox1.Items(i), "/") + 1, ListBox1.Items(i), "/") + 1, InStrRev(ListBox1.Items(i), "/") - InStr(InStr(ListBox1.Items(i), "/") + 1, ListBox1.Items(i), "/") - 1) + Chr(34) + ";" + vbNewLine + "   uiName = " + Chr(34) + Mid(ListBox1.Items(i), 1, InStr(1, ListBox1.Items(i), "/") - 1) + Chr(34) + ";" + vbNewLine + "}" + vbNewLine + vbNewLine, True)
                                'Create the BLB files
                                My.Computer.FileSystem.WriteAllText("C:\" + Mid(ListBox1.Items(i), 1, InStr(1, ListBox1.Items(i), "/") - 1) + ".blb", Replace(Mid(ListBox1.Items(i), InStrRev(ListBox1.Items(i), "/") + 1), "x", " ") + vbNewLine + "BRICK", False)
                                'Add the BLB file to the .zip folder
                                zip.AddFile("C:\" + Mid(ListBox1.Items(i), 1, InStr(1, ListBox1.Items(i), "/") - 1) + ".blb")
                            Next
                            'Create description.txt
                            My.Computer.FileSystem.WriteAllText("C:\description.txt", "Title: " + TextBox1.Text + vbNewLine + "Author: " + name + vbNewLine + description, False)
                            'Add description.txt to the .zip folder
                            zip.AddFile("C:\description.txt")
                            'Add server.cs to the .zip folder
                            zip.AddFile("C:\server.cs")
                            'Finish the .zip folder by saving it
                            zip.Save(blpath + "\Brick_" + TextBox1.Text + ".zip")
                            'Delete the server.cs that wasn't put into the .zip folder
                            My.Computer.FileSystem.DeleteFile("C:\server.cs")
                            'Delete the description.txt that wasn't put into the .zip folder
                            My.Computer.FileSystem.DeleteFile("C:\description.txt")
                            'Delete the leftover BLB files that aren't in the .zip folder
                            For i = 0 To ListBox1.Items.Count - 1
                                My.Computer.FileSystem.DeleteFile("C:\" + Mid(ListBox1.Items(i), 1, InStr(1, ListBox1.Items(i), "/") - 1) + ".blb")
                            Next
                            MsgBox("Your brick pack is complete! If Blockland is open right now, you'll have to restart it. When you go start a game and click on Add-Ons, you'll see Brick_" + TextBox1.Text + " in there!")
                        End Using
                    End If
                End If
            End If
        Else
            'Same thing down here
            Dim name As String = InputBox("Here's the last part of making your brick pack: the description. First type your Blockland name in.", "Blockland Brick Generator v1")
            If name = "" Then
                MsgBox("Yeah, right. I seriously doubt that your name is blank.", 0, "Blockland Brick Generator v1")
            Else
                Dim description As String = InputBox("Now, type in a short description for your brick pack (for example: A few extra baseplates you can use)", "Blockland Brick Generator")
                If description = "" Then
                    MsgBox("I'm going to have you try that again.", 0, "Blockland Brick Generator v1")
                Else
                    Using zip As New Ionic.Zip.ZipFile
                        My.Computer.FileSystem.WriteAllText("C:\server.cs", "//Created with Legojak's Blockland Brick Generator v1" + vbNewLine + vbNewLine, False)
                        For i = 0 To ListBox1.Items.Count - 1
                            My.Computer.FileSystem.WriteAllText("C:\server.cs", "datablock fxDTSBrickData (brick" + Mid(Replace(ListBox1.Items(i), " ", ""), 1, InStr(1, Replace(ListBox1.Items(i), " ", ""), "/") - 1) + "Data)" + vbNewLine + "{" + vbNewLine + "   brickFile = " + Chr(34) + "./" + Mid(ListBox1.Items(i), 1, InStr(1, ListBox1.Items(i), "/") - 1) + ".blb" + Chr(34) + ";" + vbNewLine + "   category = " + Chr(34) + Mid(Mid(ListBox1.Items(i), InStr(1, ListBox1.Items(i), "/") + 1), 1, InStr(1, Mid(ListBox1.Items(i), InStr(1, ListBox1.Items(i), "/") + 1), "/") - 1) + Chr(34) + ";" + vbNewLine + "   subCategory = " + Chr(34) + Mid(ListBox1.Items(i), InStr(InStr(ListBox1.Items(i), "/") + 1, ListBox1.Items(i), "/") + 1, InStrRev(ListBox1.Items(i), "/") - InStr(InStr(ListBox1.Items(i), "/") + 1, ListBox1.Items(i), "/") - 1) + Chr(34) + ";" + vbNewLine + "   uiName = " + Chr(34) + Mid(ListBox1.Items(i), 1, InStr(1, ListBox1.Items(i), "/") - 1) + Chr(34) + ";" + vbNewLine + "}" + vbNewLine + vbNewLine, True)
                            My.Computer.FileSystem.WriteAllText("C:\" + Mid(ListBox1.Items(i), 1, InStr(1, ListBox1.Items(i), "/") - 1) + ".blb", Replace(Mid(ListBox1.Items(i), InStrRev(ListBox1.Items(i), "/") + 1), "x", " ") + vbNewLine + "BRICK", False)
                            zip.AddFile("C:\" + Mid(ListBox1.Items(i), 1, InStr(1, ListBox1.Items(i), "/") - 1) + ".blb")
                        Next
                        My.Computer.FileSystem.WriteAllText("C:\description.txt", "Title: " + TextBox1.Text + vbNewLine + "Author: " + name + vbNewLine + description, False)
                        zip.AddFile("C:\description.txt")
                        zip.AddFile("C:\server.cs")
                        zip.Save(blpath + "\Brick_" + TextBox1.Text + ".zip")
                        My.Computer.FileSystem.DeleteFile("C:\server.cs")
                        My.Computer.FileSystem.DeleteFile("C:\description.txt")
                        For i = 0 To ListBox1.Items.Count - 1
                            My.Computer.FileSystem.DeleteFile("C:\" + Mid(ListBox1.Items(i), 1, InStr(1, ListBox1.Items(i), "/") - 1) + ".blb")
                        Next
                        MsgBox("Your brick pack is complete! If Blockland is open right now, you'll have to restart it. When you go start a game and click on Add-Ons, you'll see Brick_" + TextBox1.Text + " in there!")
                    End Using 'Lots of End Ifs:
                End If
            End If
        End If
    End Sub