Getting Spicific text From Textbox[RESOLVED]

[dglienna]

This will pull out the address, and show you how to use instr()
I replaced the " with "" to get it into a string.

Option Explicit
 
Private Sub Form_Load()
  Dim t$
  Dim sstart As Integer, sstop As Integer
  t = "<embed width=""550"" height=""400"" src=""http://agflashfarm.com/D78AQSAKQLQWI9/2019.swf quality"
  sstart = InStr(t, "src=") + 5
  sstop = InStr(t, " qual")
  MsgBox Mid$(t, sstart, sstop - sstart)
End Sub