Pretvaranje konzolnog programa u Win program

Našao sam na netu jedan dobar komad koda. Treba mi pomoć da ga očistim od "smeća" i malo stesam.

Evo ga:

Sub InsertRow()
If Range("A1").MergeCells Then
    MsgBox "Already done"
    Exit Sub
End If

Dim LastRow As Integer, Cnt As Integer, i As Integer
Dim StrRw As String

LastRow = Cells(Rows.Count, "K").End(xlUp).Row

StrRw = Right$(Range("K" & LastRow), 1)

For i = LastRow To 1 Step -1
    If Right$(Range("K" & i), 1) <> StrRw Then
       Range("A" & i + 1).EntireRow.Insert (xlShiftDown)
        Range("A" & i + 1, "K" & i + 1).Merge
        Range("A" & i + 1).HorizontalAlignment = xlHAlignCenter
        Range("A" & i + 1) = Title(StrRw)
        StrRw = Right$(Range("K" & i), 1)
        Cnt = 0
    Else
        'Shading
        If Cnt Mod 2 = 0 Then
            Range("A" & i, "K" & i).Interior.Color = RGB(192, 192, 192)
        End If
        Cnt = Cnt + 1
    End If
Next

'fill the first row
Range("K" & i + 1).EntireRow.Insert (xlShiftDown)
Range("A" & i + 1, "k" & i + 1).Merge
Range("A" & i + 1).HorizontalAlignment = xlHAlignCenter
Range("A" & i + 1) = Title(StrRw)

End Sub      

Mislim da bi ovo boldano trebalo biti ok. Help anyone?

Hvala na pomoći, ali zakasnio si. Već se 20 minuta igram sa GOTOVIM programom. Napokon je gotov. 

Evo koda:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim NewRow As Double
        NewRow = worksheet.Range("A1").Value + 1

        worksheet.Cells(1, 2).Value = Label4.Text

        worksheet.Cells(1, 3).Value = Label5.Text

        worksheet.Cells(1, 4).Value = Label6.Text

        worksheet.Cells(1, 5).Value = Label7.Text

        worksheet.Cells(1, 6).Value = Label8.Text

        worksheet.Cells(1, 7).Value = Label9.Text

        worksheet.Cells(1, 8).Value = Label10.Text

        worksheet.Cells(1, 9).Value = Label11.Text

        worksheet.Cells(1, 10).Value = CheckBox1.Text

        worksheet.Cells(1, 11).Value = CheckBox2.Text

        worksheet.Cells(1, 12).Value = CheckBox3.Text

        worksheet.Cells(1, 13).Value = CheckBox4.Text

        worksheet.Cells(1, 14).Value = Label1.Text

        worksheet.Cells(1, 15).Value = Label2.Text

        worksheet.Cells(NewRow, 2).Value = TextBox1.Text

        worksheet.Cells(NewRow, 3).Value = TextBox2.Text

        worksheet.Cells(NewRow, 4).Value = ComboBox1.Text

        worksheet.Cells(NewRow, 5).Value = TextBox3.Text

        worksheet.Cells(NewRow, 6).Value = TextBox4.Text

        worksheet.Cells(NewRow, 7).Value = TextBox6.Text

        worksheet.Cells(NewRow, 8).Value = DateTimePicker1.Text

        worksheet.Cells(NewRow, 9).Value = TextBox5.Text

        worksheet.Cells(NewRow, 10).Value = CheckBox1.Checked

        worksheet.Cells(NewRow, 11).Value = CheckBox2.Checked

        worksheet.Cells(NewRow, 12).Value = CheckBox3.Checked

        worksheet.Cells(NewRow, 13).Value = CheckBox4.Checked

        worksheet.Cells(NewRow, 14).Value = RichTextBox1.Text

        worksheet.Cells(NewRow, 15).Value = RichTextBox2.Text

        worksheet.Range("A1").Value = worksheet.Range("A1").Value + 1

End sub

A sad idem na zasluženi odmor.

 To što si mi rekao što moram napraviti mi ne znači ništa. To znam i sam. Mene uvijek zanima kako nešto napravit-kužiš?