How can I use my cell value in A1 and write this value into another vba code?

Question

I have an Input Box:

Sub Insert()
Dim myValue As Variant
myValue = InputBox("Need Input")
Range("A1").Value = myValue
End Sub

Now I want to use the value in A1 and insert this into another vba code called Sub pr(). It is in the same worksheet and table.

It should replace "www.google.com" for the input in A1.

Set Explorer = CreateObject("InternetExplorer.Application")
Explorer.Navigate "www.google.com"

When I use Sub Insert() again, it should replace it again.

How can I use my value from A1 and write it into vba code?