Need String As Range & Need Contents of Cell Developed Into This Code

[drmingle]

So this code works fine (it was provided by another member here at Mr.Excel.com):

Sub GetTextOrHtmlFromIe()
'Standard module code, like: Module1.
Dim bln As Boolean
Dim NPOFile$, myFile$
Dim ie As Object, objDoc As Object, f As Object, fs As Object
Const strMsg As String = "To get a text version of your page, click [Yes]," & vbLf & _
"To get the Html version, click [No]"
Const strURI As String = "[URL]http://www.google.com/#sclient=psy&hl=en&safe=active&source=hp&q=site:+squidoo.com+%22space[/URL] saver treadmill%22&aq=f&aqi=&aql=&oq=&pbx=1&bav=on.2,or.r_gc.r_pw.&fp=d69918eb06677aa8"
Set ie = CreateObject("internetexplorer.application")
ie.Navigate strURI
'Wait for page to load!
Do
If ie.ReadyState = 4 Then
ie.Visible = False
Exit Do
Else
DoEvents
End If
Loop
Set objDoc = ie.Document
If MsgBox(strMsg, vbInformation + vbYesNo, "Display page!") = vbYes Then bln = True
If bln Then
'Text
strMyPage = objDoc.getElementById("resultStats").innerText
Else
'Html
strMyPage = objDoc.getElementById("resultStats").innerHTML
End If
'Use this Text file!
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
End If
myFile = fileToOpen
NPOFile = "NotePad.exe " & myFile
'Work with file [Append Text to File].
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(myFile, 8, TristateUseDefault)
f.Write Chr(9) & strMyPage
f.Close
'Open NotePad with a data file!
ActiveSheet.Select
Call Shell(NPOFile, 1)
Set objDoc = Nothing
Set ie = Nothing
End Sub

However, I am needing to make two adjustments which I need help with:

1. Const strURI As String = [needs to be a value contained within A2/Sheet1 - instead of hard coded into VBA]
2. f.Write Chr(9) & strMyPage [needs to be a value contained within B2/Sheet1- instead of results URL only]. I thought this might look like f.Write Chr(9) & Sheet1.Range(B2) &strMyPage

Any help would be appreciated...