Sub IE_Method_getAschiDesign()
    Dim URL As String
    Dim strText As String
    Dim ie As InternetExplorer
    Dim MyData As DataObject
    strText = InputBox(prompt:="Your Text Please.", Title:="Text Here", Default:="Ajeet Prasad")
    Application.StatusBar = "Working to get Aschi"
    If strText = "" Or strText = "Your Text Please." Then
        MsgBox "No Name Provided"
        GoTo endFunction
    End If
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = False
    'We can change setting from website Like Font and other stuff
    URL = "" & strText
    ie.navigate URL
    Do: DoEvents: Loop Until ie.Busy = False
    Do: DoEvents: Loop Until ie.readyState = READYSTATE_COMPLETE
    strText = ie.document.getElementById("taag_output_text").innerHTML 'innerText
    Debug.Print strText
    Set MyData = New DataObject
    MyData.SetText strText
    'Range("A1") = strText
    MsgBox "Design Copied to clipboard"
    On Error Resume Next
    Set ie = Nothing
    Set MyData = Nothing
    Application.StatusBar = "Finish"
End Sub