I figured it out. It looks like I had a bunch of unnecessary code in there with respect to wsh. For others trying to do this, the correct code would be -

Private Sub
Dim fname
fname = InputBox("Enter UserName")
WebBrowser1.Navigate("http://privateurl.com/users/" & fname)
End Sub