String: cambiar 1ª letra a mayúscula???

[Henry Zapata]

Hola:

Private Sub btnTransforma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTransforma.Click
Dim cadena As String = txtCadena.Text
txtCadena.Text = UCase(Mid(cadena, 1, 1)) + Mid(cadena, 2, Len(cadena))
End Sub

saludos!!