Program 9.4

Program 9.4 has two parts

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

Part to (Module part)
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