visual basic help

[perkunas]

Trying to make a text editor ie push a nud or radio button it changes text in my ritch text box. I had it sort of working screwed it up a little I need help.
please

Code: [Select]

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveTheText.Click
        SaveIt.InitialDirectory = "C:\"
        SaveIt.FileName = "Save AS..."
        SaveIt.Filter = "cs Files Only (*.cs) | *.cs"
        SaveIt.ShowDialog()
        Dim W As New IO.StreamWriter(SaveIt.FileName)
        W.Write(TheText.Text)
        W.Close()
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        UpdateTextBox()
    End Sub
    Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
        UpdateTextBox()
    End Sub
    Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged
        UpdateTextBox()
    End Sub
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        UpdateTextBox()
    End Sub
    Private Sub UpdateTextBox()
        TheText.Text = CreateFinalCode()
    End Sub
    Private Function CreateFinalCode() As String

        Dim Task As Integer = If(RadioButton2.Checked, "True", "false")
        Dim HighLow As String = If(CheckBox1.Checked, "true", "false")
        Dim Task As Integer = If(NumericUpDown1.ValueChanged)
        Return String.Format(My.Resources.template1, NumericUpDown1.Value, Task, HighLow, NumericUpDown2.Value)


    End Function

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub UpdateTextBox(ByVal p1 As Integer)
        Throw New NotImplementedException
    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

    End Sub
End Class