Pomoc oko programa u Visual Basic 2008

Code:
Public Class Form1

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

        Dim strRecenica As String = TextBox1.Text
        Dim iPocetakDruge As Integer = strRecenica.IndexOf(" ")
        strRecenica = strRecenica.Trim

        Dim strPrva As String = strRecenica.Substring(0, 1).ToUpper & strRecenica.Substring(1, iPocetakDruge).ToLower

        TextBox1.Text = strPrva
    End Sub
End Class

Code:
Public Class Form1

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

        Dim br As Integer
        Dim strRecenica As String = TextBox1.Text
        Dim iPocetakDruge As Integer = strRecenica.IndexOf(" ")
        strRecenica = strRecenica.Trim

        Dim strPrva As String = strRecenica.Substring(0, 1).ToUpper & strRecenica.Substring(1, iPocetakDruge).ToLower

        TextBox1.Text = strPrva


        For i = 1 To Len(strRecenica)
            If strRecenica.Substring(i, i + 1) = " " Then
                br += 1
            End If
        Next i


        Dim strNastavak As String = strRecenica.Substring(iPocetakDruge)
        strNastavak = strNastavak.Trim

        strRecenica = strNastavak

        Dim iSljececa As Integer = strRecenica.IndexOf(" ")
        Dim strRijeci(br) As String
        If strNastavak.IndexOf(" ") <> 0 Then
            For j = 1 To br
                strRijeci(j) = strRecenica.Substring(0, 1).ToUpper & strRecenica.Substring(1, iSljececa).ToLower

            Next j
        End If

        Dim strKrajnja As String = strPrva

        For x = 1 To br
            strKrajnja = strKrajnja & strRijeci(x)
        Next x

        TextBox2.Text = strKrajnja

    End Sub
End Class

Code:
Public Class Form1

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

        Dim strRecenica As String = TextBox1.Text
        strRecenica = strRecenica.Trim
        Dim strSlovo(Len(strRecenica)) As String

        Dim strMid As String

        For i = 2 To Len(strRecenica)
            strMid = Mid(strRecenica, i, 1)
            strSlovo(i) = strMid
            TextBox2.Text = strSlovo(i)
        Next i

        For j = 1 To Len(strRecenica)
            If strSlovo(j - 1) = " " Then
                strSlovo(j) = strSlovo(j).ToUpper
            End If
        Next j

        Dim strKrajnja As String = strRecenica.Substring(0, 1).ToUpper

        For x = 1 To Len(strRecenica)
            strKrajnja = strKrajnja & strSlovo(x)
        Next x

        TextBox2.Text = strKrajnja

    End Sub
End Class

Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = StrConv(TextBox1.Text, VbStrConv.ProperCase)
    End Sub