Visual Basic Invalid castexception was unhandled.

       Me.Hide()
            Loading.Show()
        Code_Viewer.TextCodeViewer.Text = "//Generated using MAYAN.  MinecraftMayan.tk" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "package net.minecraft.src;" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "import java.util.Random;" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "public class " + TextName.Text + " extends BaseMod" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "{" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "public void load()" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "{" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "//This is our to-do list." + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "   addNames();" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "   setTextures();" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "   addRecipes();" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "}" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "public String getVersion()" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "{" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "return " + TextVersion.Text + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "}" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "public void addNames();" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "{" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "ModLoader.AddName(" + TextItemName.Text + ", " + TextAddName.Text + ");" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "}" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "public void setTextures()" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "{" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += TextItemName.Text + ".iconIndex = ModLoader.addOverride(""/gui/items.png""," + TextTexture.Text + ".png );" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "}" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "public void addRecipes()" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "{" + vbNewLine
            Code_Viewer.TextCodeViewer.Text += "ModLoader.addRecipe(new ItemStack(" + TextItemName.Text + ", " + NumQuant.Value + "), new Object[] {" + vbNewLine

        If s1.Visible = True Then
            Code_Viewer.TextCodeViewer.Text += " """ + R1.Text + R2.Text + R3.Text + """," + " """ + R4.Text + R5.Text + R6.Text + """," + " """ + R7.Text + R8.Text + R9.Text + """," + "Character.valueOf('" + s1.Text + "'), Item." + Combos1.Text + vbNewLine
        ElseIf s1.Visible And s2.Visible = True Then
            Code_Viewer.TextCodeViewer.Text += " """ + R1.Text + R2.Text + R3.Text + """," + " """ + R4.Text + R5.Text + R6.Text + """," + " """ + R7.Text + R8.Text + R9.Text + """," + "Character.valueOf('" + s1.Text + "'), Item." + Combos1.Text + ", Character.valueOf('" + s2.Text + "'), Item." + Combos2.Text + vbNewLine
        ElseIf s1.Visible And s2.Visible And s3.Visible = True Then
            Code_Viewer.TextCodeViewer.Text += " """ + R1.Text + R2.Text + R3.Text + """," + " """ + R4.Text + R5.Text + R6.Text + """," + " """ + R7.Text + R8.Text + R9.Text + """," + "Character.valueOf('" + s1.Text + "'), Item." + Combos1.Text + ", Character.valueOf('" + s2.Text + "'), Item." + Combos2.Text + ", Character.valueOf('" + s3.Text + "'), Item." + Combos3.Text + vbNewLine
        ElseIf s1.Visible And s2.Visible And s3.Visible And s4.Visible = True Then
            Code_Viewer.TextCodeViewer.Text += " """ + R1.Text + R2.Text + R3.Text + """," + " """ + R4.Text + R5.Text + R6.Text + """," + " """ + R7.Text + R8.Text + R9.Text + """," + "Character.valueOf('" + s1.Text + "'), Item." + Combos1.Text + ", Character.valueOf('" + s2.Text + "'), Item." + Combos2.Text + ", Character.valueOf('" + s3.Text + "'), Item." + Combos3.Text + ", Character.valueOf('" + s4.Text + "'), Item." + Combos4.Text + vbNewLine
        ElseIf s1.Visible And s2.Visible And s3.Visible And s4.Visible And s5.Visible = True Then
            Code_Viewer.TextCodeViewer.Text += " """ + R1.Text + R2.Text + R3.Text + """," + " """ + R4.Text + R5.Text + R6.Text + """," + " """ + R7.Text + R8.Text + R9.Text + """," + "Character.valueOf('" + s1.Text + "'), Item." + Combos1.Text + ", Character.valueOf('" + s2.Text + "'), Item." + Combos2.Text + ", Character.valueOf('" + s3.Text + "'), Item." + Combos3.Text + ", Character.valueOf('" + s4.Text + "'), Item." + Combos4.Text + ", Character.valueOf('" + s5.Text + "'), Item." + Combos5.Text + vbNewLine
        ElseIf s1.Visible And s2.Visible And s3.Visible And s4.Visible And s5.Visible And s6.Visible = True Then
            Code_Viewer.TextCodeViewer.Text += " """ + R1.Text + R2.Text + R3.Text + """," + " """ + R4.Text + R5.Text + R6.Text + """," + " """ + R7.Text + R8.Text + R9.Text + """," + "Character.valueOf('" + s1.Text + "'), Item." + Combos1.Text + ", Character.valueOf('" + s2.Text + "'), Item." + Combos2.Text + ", Character.valueOf('" + s3.Text + "'), Item." + Combos3.Text + ", Character.valueOf('" + s4.Text + "'), Item." + Combos4.Text + ", Character.valueOf('" + s5.Text + "'), Item." + Combos5.Text + ", Character.valueOf('" + s6.Text + "'), Item." + combos6.Text + vbNewLine

        End If
        Code_Viewer.TextCodeViewer.Text += "});" + vbNewLine
        Code_Viewer.TextCodeViewer.Text += "//You can go to the forums and look at my tutorial and the above code will make much more sense!" + vbNewLine
        Code_Viewer.TextCodeViewer.Text += "}" + vbNewLine
        Code_Viewer.TextCodeViewer.Text += "" + vbNewLine
        Code_Viewer.TextCodeViewer.Text += "public static final Item " + TextItemName.Text + " = new " + ComboDefIT.Text + "(" + TextID.Text + ", EnumToolMaterial." + Combostr.Text + ").setItemName('" + TextItemName.Text + "');" + vbNewLine
        Code_Viewer.TextCodeViewer.Text += "" + vbNewLine
        Code_Viewer.Show()