First and last word to proper case

[johndohmen1963]

Hi can someone give me the code how i make the first and last word of a string to Propr case
The folowing gives all words to proper case

Dim plaats As String = Replace(TextBox1.Text, "'", "''")
plaats = StrConv(plaats, VbStrConv.ProperCase)

I want, shall we say: "ohe en laak" to "Ohe en Laak" or "mülheim an der ruhr" To "Mülheim an der Ruhr"
Thanks in advise John

[Santanu.Das]

Split the sentence with space and store it in an array then convert to proper case of the first and last element of that array. After that join the array elements with space.

[johndohmen1963]

Can you give code please. I am not a hero with arrays.

[xrjf]

            Dim vplaats() As String = Split(Replace(TextBox1.Text, "'", "''"), " ")
            vplaats(0) = StrConv(vplaats(0), VbStrConv.ProperCase)
            vplaats(vplaats.Length - 1) = StrConv(vplaats(vplaats.Length - 1), VbStrConv.ProperCase)
            Dim platts As String = Join(vplaats, " ")

[johndohmen1963]

Thanks for the help that works great