Dim String1 As String
        Dim MyAns As String
        Dim StringR As String
        Console.Write("Enter a String with No of first letter Occurences: ")
        String1 = Console.ReadLine
        StringR = String1.Replace(Left(String1, 1), "*")
        MyAns = Left(String1, 1) & Mid(StringR, 2, Len(String1))
        Console.WriteLine(MyAns)
        Console.ReadKey()