Sub CheckBox_RemoveCheckedChanged(sender As Object, e As EventArgs)
		If Me.checkBox_Remove.Checked Then		
			For i As Integer = 0 To textBox1.Lines.Length - 1
				If textBox1.Lines(i).Length >= 32 Then
					textBox1.Lines(i).Remove(0, 33)
					Dim sNewText As String = textBox1.Text.Replace ("[/Farbe]", "").Replace _
						("[Farbe=DarkRed]", "").Replace ("[Farbe=Red]", "").Replace _
						("[Farbe=Orange]", "").Replace ("[Farbe=Brown]", "").Replace _
						("[Farbe=Yellow]", "").Replace ("[Farbe=Green]", "").Replace _
						("[Farbe=Olive]", "").Replace ("[Farbe=Cyan]", "").Replace _
						("[Farbe=Blue]", "").Replace ("[Farbe=DarkBlue]", "").Replace _
						("[Farbe=Indigo]", "").Replace ("[Farbe=Violet]", "").Replace _
						("[Farbe=White]", "").Replace ("[Farbe=Black]", "")
					textBox1.Text = sNewText
                End If                
            Next			
			Me.checkBox_ChangeFarbe.Enabled = False
			Me.checkBox_ChangeFarbe.Checked = False
			Me.radioButton_Format1.Enabled = True
			Me.radioButton_Format1.Checked = True
		Else
			Me.checkBox_ChangeFarbe.Enabled = True
			Me.checkBox_ChangeFarbe.Checked = True
			Me.radioButton_Format1.Checked = True
			Me.textBox1.Clear
		End If
	End Sub