Visual Basic - capitalizar letras

Function Primer_mayusc(Texto As String) As String

    Dim Largo As Byte

    Dim micadena As String

    Largo = Len(Texto) - 1

    Primer_mayusc = StrConv(Left(Texto, 1), vbUpperCase) & StrConv(Mid(Texto, 2, Largo), vbLowerCase)

End Function

Function Primer_mayusc(Texto As String) As String

    Dim Palabras() As String, a As Integer

    Palabras = Split(Texto, " ")

    Primer_mayusc = ""

    For a = 1 To UBound(Palabras)

        Primer_mayusc = Primer_mayusc + UCase(Left(Palabras(a), 1)) + LCase(Mid(Palabras(a), 2)) & " "

    Next

    Primer_mayusc = RTrim(Primer_mayusc)

End Function

Sub Prueba()

    MsgBox Primer_mayusc("en un lugar de la mancha de cuyo nombre no quiero acordarme")

    MsgBox Primer_mayusc("EN UN LUGAR DE LA MANCHA DE CUYO NOMBRE NO QUIERO ACORDARME")

End Sub

Public Function Primer_mayusc(ByRef Entrada As String) As String

    Dim p As Long

    Dim lonStr As Long

    lonStr = Len(Entrada)

    If lonStr > 0 Then

        Primer_mayusc = LCase$(Entrada)

        Mid$(Primer_mayusc, 1, 1) = UCase$(Mid$(Primer_mayusc, 1, 1))

        p = 2

        p = InStr(p, Primer_mayusc, " ")

        While p > 0 And p < lonStr

            p = p + 1

            Mid$(Primer_mayusc, p, 1) = UCase$(Mid$(Primer_mayusc, p, 1))

            p = InStr(p, Primer_mayusc, " ")

        Wend

    End If

End Function

Imports System.Globalization

Public Class Form1

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

        Label1.Text = CultureInfo.CurrentCulture.TextInfo.ToTitleCase(TextBox1.Text)

    End Sub

End Class

Label1.Text = StrConv(TextBox1.Text, VbStrConv.ProperCase)