Como transformar em maiúsculas a inicial de cada palavra em uma string

'Este exemplo mostra como transformar em maiúsculas
'as iniciais de cada palavra em uma string

Module Module1
  Sub Main()
    Dim frase As String = "gosto de programar em java"

    'iniciais maiúsculas
    frase = IniMaiusculas(frase.Trim())

    Console.WriteLine(frase)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub

  Function IniMaiusculas(ByVal str As String) As String
    Dim res As String

    'transforma tudo em minúsculas
    str = str.ToLower()

    'vamos separar a string
    Dim palavras As String() = str.Split(" ")

    'transforma as inicias em maiúsculas
    For i As Integer = 0 To palavras.GetUpperBound(0) Step 1
      'remove espaços desnecessários
      palavras(i) = palavras(i).Trim()
      'inicial maiúscula'
      palavras(i) = palavras(i).Chars(0).ToString.ToUpper _
        & palavras(i).Remove(0, 1)
    Next

    'junta tudo novamente
    res = String.Join(" ", palavras)

    Return res
  End Function
End Module