Ok I can use this to input a value in a text box ona website
f Code:
  1. Private Sub Command1_Click()
  2.  Dim HTMLI As HTMLInputElement
  3.      Set HTML = WebBrowser1.Document
  4.      Debug.Print HTML.documentElement.innerText
  5.          For Each HTMLI In HTML.getElementsByTagName("input")
  6.         If HTMLI.Name = "video_link" Then
  7.                 HTMLI.Value = Text1.Text
  8. End If
  9. Next
  10. End Sub

but I need to grab the what in the textbox named "video_link" on a website and put it in text1, how would do that?