The Replacer

Public Class Form56
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TextBox17.Text = Len(RichTextBox1.Text)
ToolStripStatusLabel1.Text = ("Total Characters : " & TextBox17.Text)
My.Settings.text1 = TextBox1.Text
My.Settings.text2 = TextBox2.Text
My.Settings.text3 = TextBox3.Text
My.Settings.text4 = TextBox4.Text
My.Settings.text5 = TextBox5.Text
My.Settings.text6 = TextBox6.Text
My.Settings.text7 = TextBox7.Text
My.Settings.text8 = TextBox8.Text
My.Settings.text9 = TextBox9.Text
My.Settings.text10 = TextBox10.Text
My.Settings.text11 = TextBox11.Text
My.Settings.text12 = TextBox12.Text
My.Settings.text13 = TextBox13.Text
My.Settings.text14 = TextBox14.Text
My.Settings.text15 = TextBox15.Text
My.Settings.text16 = TextBox16.Text
My.Settings.Save()
My.Settings.Reload()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
TextBox1.Text = My.Settings.text1
TextBox2.Text = My.Settings.text2
TextBox3.Text = My.Settings.text3
TextBox4.Text = My.Settings.text4
TextBox5.Text = My.Settings.text5
TextBox6.Text = My.Settings.text6
TextBox7.Text = My.Settings.text7
TextBox8.Text = My.Settings.text8
TextBox9.Text = My.Settings.text9
TextBox10.Text = My.Settings.text10
TextBox11.Text = My.Settings.text11
TextBox12.Text = My.Settings.text12
TextBox13.Text = My.Settings.text13
TextBox14.Text = My.Settings.text14
TextBox15.Text = My.Settings.text15
TextBox16.Text = My.Settings.text16
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim p, q, r, s, aa, b, c, d, f, g, ah, ai, j, ak, al, m, n, o As String
Try
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox1.Text
q = p.Replace(" ", " ")
RichTextBox1.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox1.Text
q = p.Replace(" ", " ")
RichTextBox1.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox1.Text
q = p.Replace(" ", " ")
RichTextBox1.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox1.Text
q = p.Replace(" ", " ")
RichTextBox1.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox1.Text
q = p.Replace(" ", " ")
RichTextBox1.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox1.Text
q = p.Replace(" ", " ")
RichTextBox1.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox1.Text
q = p.Replace(" ", " ")
RichTextBox1.Text = q
End If
aa = RichTextBox1.Text
b = aa.Replace(TextBox1.Text, TextBox2.Text)
RichTextBox1.Text = b
c = RichTextBox1.Text
d = c.Replace(TextBox3.Text, TextBox4.Text)
RichTextBox1.Text = d
f = RichTextBox1.Text
g = f.Replace(TextBox5.Text, TextBox6.Text)
RichTextBox1.Text = g
ah = RichTextBox1.Text
ai = ah.Replace(TextBox7.Text, TextBox8.Text)
RichTextBox1.Text = ai
j = RichTextBox1.Text
ak = j.Replace(TextBox9.Text, TextBox10.Text)
RichTextBox1.Text = ak
al = RichTextBox1.Text
m = al.Replace(TextBox11.Text, TextBox12.Text)
RichTextBox1.Text = m
n = RichTextBox1.Text
o = n.Replace(TextBox13.Text, TextBox14.Text)
RichTextBox1.Text = o
r = RichTextBox1.Text
s = r.Replace(TextBox15.Text, TextBox16.Text)
RichTextBox1.Text = s
Catch ex As Exception
End Try
End Sub

Private Sub RichTextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyDown
If e.KeyCode = Keys.F7 Then
Button1.Width = 180
Button3.Width = 180
TextBox1.Show()
TextBox2.Show()
TextBox3.Show()
TextBox4.Show()
TextBox5.Show()
TextBox6.Show()
TextBox7.Show()
TextBox8.Show()
TextBox9.Show()
TextBox10.Show()
TextBox11.Show()
TextBox12.Show()
TextBox13.Show()
TextBox14.Show()
TextBox15.Show()
TextBox16.Show()
End If
If e.KeyCode = Keys.F8 Then
Button1.Width = 744
Button3.Width = 744
CheckBox1.Show()
TextBox1.Hide()
TextBox2.Hide()
TextBox3.Hide()
TextBox4.Hide()
TextBox5.Hide()
TextBox6.Hide()
TextBox7.Hide()
TextBox8.Hide()
TextBox9.Hide()
TextBox10.Hide()
TextBox11.Hide()
TextBox12.Hide()
TextBox13.Hide()
TextBox14.Hide()
TextBox15.Hide()
TextBox16.Hide()
End If
If e.KeyCode = Keys.F9 Then
Dim length As Double
length = ((TextBox17.Text) * 20) / 1000
MsgBox(length)
End If
End Sub

Private Sub RichTextBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.MouseHover
Panel2.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RichTextBox1.Paste()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
RichTextBox1.SelectAll()
RichTextBox1.Copy()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
RichTextBox1.SelectAll()
RichTextBox1.Clear()
RichTextBox1.Focus()
End Sub
Private Sub Panel1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.Click
Panel2.Hide()
End Sub
Private Sub Panel1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.MouseHover
Panel2.Show()
type.Items.Add("doc")
type.Items.Add("txt")
End Sub
Private Sub Button57_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button57.Click
OpenFileDialog1.ShowDialog()
Dim file As String
file = OpenFileDialog1.FileName
srcadd.Text = OpenFileDialog1.FileName
End Sub

Private Sub Button56_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button56.Click
Dim H, I, K, L As String
Dim p, q, r, s, aa, b, c, d, f, g, ah, ai, j, ak, al, m, n, o As String

Dim A As Integer
H = srcfilename.Text
L = srcadd.Text & "\" & H & "." & type.Text
A = stafile.Text
If endfile.Text < 10 Then
For A = stafile.Text To endfile.Text
I = "_" & A & "." & type.Text
K = dstnadd.Text & "\" & H & I
If CheckBox2.CheckState = CheckState.Unchecked Then
My.Computer.FileSystem.CopyFile(L, K)
End If
If CheckBox2.CheckState = CheckState.Checked Then
Dim value As String = My.Computer.FileSystem.ReadAllText(K)
RichTextBox3.Text = value
My.Computer.FileSystem.DeleteFile(K)
My.Computer.FileSystem.CopyFile(L, K)
Dim y As String
y = RichTextBox3.Text
Try
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
aa = RichTextBox3.Text
b = aa.Replace(TextBox1.Text, TextBox2.Text)
RichTextBox3.Text = b
c = RichTextBox3.Text
d = c.Replace(TextBox3.Text, TextBox4.Text)
RichTextBox3.Text = d
f = RichTextBox3.Text
g = f.Replace(TextBox5.Text, TextBox6.Text)
RichTextBox3.Text = g
ah = RichTextBox3.Text
ai = ah.Replace(TextBox7.Text, TextBox8.Text)
RichTextBox3.Text = ai
j = RichTextBox3.Text
ak = j.Replace(TextBox9.Text, TextBox10.Text)
RichTextBox3.Text = ak
al = RichTextBox3.Text
m = al.Replace(TextBox11.Text, TextBox12.Text)
RichTextBox3.Text = m
n = RichTextBox3.Text
o = n.Replace(TextBox13.Text, TextBox14.Text)
RichTextBox3.Text = o
r = RichTextBox3.Text
s = r.Replace(TextBox15.Text, TextBox16.Text)
RichTextBox3.Text = s
Catch ex As Exception
End Try
My.Computer.FileSystem.WriteAllText(K, RichTextBox3.Text, True)
RichTextBox3.Clear()
End If
Next A
ElseIf endfile.Text > 9 And endfile.Text < 100 Then
If A > 0 Then
For A = stafile.Text To 9
I = "_" & "0" & A & "." & type.Text
K = dstnadd.Text & "\" & H & I
If CheckBox2.CheckState = CheckState.Unchecked Then
My.Computer.FileSystem.CopyFile(L, K)
End If
If CheckBox2.CheckState = CheckState.Checked Then
Dim value As String = My.Computer.FileSystem.ReadAllText(K)
RichTextBox3.Text = value
My.Computer.FileSystem.DeleteFile(K)
My.Computer.FileSystem.CopyFile(L, K)
Dim y As String
y = RichTextBox3.Text
Try
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
aa = RichTextBox3.Text
b = aa.Replace(TextBox1.Text, TextBox2.Text)
RichTextBox3.Text = b
c = RichTextBox3.Text
d = c.Replace(TextBox3.Text, TextBox4.Text)
RichTextBox3.Text = d
f = RichTextBox3.Text
g = f.Replace(TextBox5.Text, TextBox6.Text)
RichTextBox3.Text = g
ah = RichTextBox3.Text
ai = ah.Replace(TextBox7.Text, TextBox8.Text)
RichTextBox3.Text = ai
j = RichTextBox3.Text
ak = j.Replace(TextBox9.Text, TextBox10.Text)
RichTextBox3.Text = ak
al = RichTextBox3.Text
m = al.Replace(TextBox11.Text, TextBox12.Text)
RichTextBox3.Text = m
n = RichTextBox3.Text
o = n.Replace(TextBox13.Text, TextBox14.Text)
RichTextBox3.Text = o
r = RichTextBox3.Text
s = r.Replace(TextBox15.Text, TextBox16.Text)
RichTextBox3.Text = s
Catch ex As Exception
End Try
My.Computer.FileSystem.WriteAllText(K, RichTextBox3.Text, True)
RichTextBox3.Clear()
End If
Next A
End If
If A > 8 Then
For A = 10 To endfile.Text
I = "_" & A & "." & type.Text
K = dstnadd.Text & "\" & H & I
If CheckBox2.CheckState = CheckState.Unchecked Then
My.Computer.FileSystem.CopyFile(L, K)
End If
If CheckBox2.CheckState = CheckState.Checked Then
Dim value As String = My.Computer.FileSystem.ReadAllText(K)
RichTextBox3.Text = value
My.Computer.FileSystem.DeleteFile(K)
My.Computer.FileSystem.CopyFile(L, K)
Dim y As String
y = RichTextBox3.Text
Try
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
aa = RichTextBox3.Text
b = aa.Replace(TextBox1.Text, TextBox2.Text)
RichTextBox3.Text = b
c = RichTextBox3.Text
d = c.Replace(TextBox3.Text, TextBox4.Text)
RichTextBox3.Text = d
f = RichTextBox3.Text
g = f.Replace(TextBox5.Text, TextBox6.Text)
RichTextBox3.Text = g
ah = RichTextBox3.Text
ai = ah.Replace(TextBox7.Text, TextBox8.Text)
RichTextBox3.Text = ai
j = RichTextBox3.Text
ak = j.Replace(TextBox9.Text, TextBox10.Text)
RichTextBox3.Text = ak
al = RichTextBox3.Text
m = al.Replace(TextBox11.Text, TextBox12.Text)
RichTextBox3.Text = m
n = RichTextBox3.Text
o = n.Replace(TextBox13.Text, TextBox14.Text)
RichTextBox3.Text = o
r = RichTextBox3.Text
s = r.Replace(TextBox15.Text, TextBox16.Text)
RichTextBox3.Text = s
Catch ex As Exception
End Try
My.Computer.FileSystem.WriteAllText(K, RichTextBox3.Text, True)
RichTextBox3.Clear()
End If
Next
End If
End If
If endfile.Text > 99 And endfile.Text < 1000 Then
If A > 0 Then
For A = stafile.Text To 9
I = "00" & A & "." & type.Text
K = dstnadd.Text & "\" & H & I
If CheckBox2.CheckState = CheckState.Unchecked Then
My.Computer.FileSystem.CopyFile(L, K)
End If
If CheckBox2.CheckState = CheckState.Checked Then
Dim value As String = My.Computer.FileSystem.ReadAllText(K)
RichTextBox3.Text = value
My.Computer.FileSystem.DeleteFile(K)
My.Computer.FileSystem.CopyFile(L, K)
Dim y As String
y = RichTextBox3.Text
Try
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
aa = RichTextBox3.Text
b = aa.Replace(TextBox1.Text, TextBox2.Text)
RichTextBox3.Text = b
c = RichTextBox3.Text
d = c.Replace(TextBox3.Text, TextBox4.Text)
RichTextBox3.Text = d
f = RichTextBox3.Text
g = f.Replace(TextBox5.Text, TextBox6.Text)
RichTextBox3.Text = g
ah = RichTextBox3.Text
ai = ah.Replace(TextBox7.Text, TextBox8.Text)
RichTextBox3.Text = ai
j = RichTextBox3.Text
ak = j.Replace(TextBox9.Text, TextBox10.Text)
RichTextBox3.Text = ak
al = RichTextBox3.Text
m = al.Replace(TextBox11.Text, TextBox12.Text)
RichTextBox3.Text = m
n = RichTextBox3.Text
o = n.Replace(TextBox13.Text, TextBox14.Text)
RichTextBox3.Text = o
r = RichTextBox3.Text
s = r.Replace(TextBox15.Text, TextBox16.Text)
RichTextBox3.Text = s
Catch ex As Exception
End Try
My.Computer.FileSystem.WriteAllText(K, RichTextBox3.Text, True)
RichTextBox3.Clear()
End If
Next
End If
If A > 8 And A < 100 Then
For A = 10 To 99
I = "0" & A & "." & type.Text
K = dstnadd.Text & "\" & H & I
If CheckBox2.CheckState = CheckState.Unchecked Then
My.Computer.FileSystem.CopyFile(L, K)
End If
If CheckBox2.CheckState = CheckState.Checked Then
Dim value As String = My.Computer.FileSystem.ReadAllText(K)
RichTextBox3.Text = value
My.Computer.FileSystem.DeleteFile(K)
My.Computer.FileSystem.CopyFile(L, K)
Dim y As String
y = RichTextBox3.Text
Try
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
aa = RichTextBox3.Text
b = aa.Replace(TextBox1.Text, TextBox2.Text)
RichTextBox3.Text = b
c = RichTextBox3.Text
d = c.Replace(TextBox3.Text, TextBox4.Text)
RichTextBox3.Text = d
f = RichTextBox3.Text
g = f.Replace(TextBox5.Text, TextBox6.Text)
RichTextBox3.Text = g
ah = RichTextBox3.Text
ai = ah.Replace(TextBox7.Text, TextBox8.Text)
RichTextBox3.Text = ai
j = RichTextBox3.Text
ak = j.Replace(TextBox9.Text, TextBox10.Text)
RichTextBox3.Text = ak
al = RichTextBox3.Text
m = al.Replace(TextBox11.Text, TextBox12.Text)
RichTextBox3.Text = m
n = RichTextBox3.Text
o = n.Replace(TextBox13.Text, TextBox14.Text)
RichTextBox3.Text = o
r = RichTextBox3.Text
s = r.Replace(TextBox15.Text, TextBox16.Text)
RichTextBox3.Text = s
Catch ex As Exception
End Try
My.Computer.FileSystem.WriteAllText(K, RichTextBox3.Text, True)
RichTextBox3.Clear()
End If
Next
End If
If A > 99 And A < 1000 Then
For A = 100 To endfile.Text
I = A & "." & type.Text
K = dstnadd.Text & "\" & H & I
If CheckBox2.CheckState = CheckState.Unchecked Then
My.Computer.FileSystem.CopyFile(L, K)
End If
If CheckBox2.CheckState = CheckState.Checked Then
Dim value As String = My.Computer.FileSystem.ReadAllText(K)
RichTextBox3.Text = value
My.Computer.FileSystem.DeleteFile(K)
My.Computer.FileSystem.CopyFile(L, K)
Dim y As String
y = RichTextBox3.Text
Try
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
If CheckBox1.CheckState = CheckState.Checked Then
p = RichTextBox3.Text
q = p.Replace(" ", " ")
RichTextBox3.Text = q
End If
aa = RichTextBox3.Text
b = aa.Replace(TextBox1.Text, TextBox2.Text)
RichTextBox3.Text = b
c = RichTextBox3.Text
d = c.Replace(TextBox3.Text, TextBox4.Text)
RichTextBox3.Text = d
f = RichTextBox3.Text
g = f.Replace(TextBox5.Text, TextBox6.Text)
RichTextBox3.Text = g
ah = RichTextBox3.Text
ai = ah.Replace(TextBox7.Text, TextBox8.Text)
RichTextBox3.Text = ai
j = RichTextBox3.Text
ak = j.Replace(TextBox9.Text, TextBox10.Text)
RichTextBox3.Text = ak
al = RichTextBox3.Text
m = al.Replace(TextBox11.Text, TextBox12.Text)
RichTextBox3.Text = m
n = RichTextBox3.Text
o = n.Replace(TextBox13.Text, TextBox14.Text)
RichTextBox3.Text = o
r = RichTextBox3.Text
s = r.Replace(TextBox15.Text, TextBox16.Text)
RichTextBox3.Text = s
Catch ex As Exception
End Try
My.Computer.FileSystem.WriteAllText(K, RichTextBox3.Text, True)
RichTextBox3.Clear()
End If
Next
End If
End If
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
End Sub
End Class