Strings manipulation VB.Net Exercise - Visual Basic Programming Course

Imports System
Class exercise89
    Private Shared Sub Main(ByVal args As String())
        Console.Write("Tell a string: ")
        Dim Entry As String = Console.ReadLine()
        Dim result As String
        result = Entry.Replace("a", "A")
        Console.WriteLine(result)
        Console.WriteLine(UppercaseFirst(Entry))
    End Sub

    Public Shared Function UppercaseFirst(ByVal s As String) As String
        Return Char.ToUpper(s(0)) & s.Substring(1)
    End Function
End Class