9.4 Code

 Public Class Form1

    Private Sub btnNewName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewName.Click
        Dim Name, NewName As String
        Name = txtname.Text
        NewName = UpperCaseFirstLetter(Name)
        lblNewName.Text = NewName
    End Sub
End Class
- - - - - - - - - - - - - - -
Module Module1
    Function UpperCaseFirstLetter(ByVal OldString As String) As String
        Dim FirstLetter As Char
        Dim NewString As String
        FirstLetter = Char.ToUpper(OldString.Substring(0, 1))
        Mid(OldString, 1, 1) = FirstLetter
        NewString = OldString
        Return NewString
    End Function
End Module