Imports System
Imports System.Text.RegularExpressions
 
Public Class Test
	Public Shared Sub Main()
	    Dim urlStr As String
        urlStr = "Deep purples blanket / wrap. It is gorgeous" & _
"in newborn photography. " & _
"layer" & _
"beneath the baby.....the possibilities are endless!" & _
"You will get this prop! " & _
"Gorgeous images using Lavender as a basket filler " & _
"Photo by Benbrook, TX" & _
"Imaging, Ontario" & _
"http://w...content-available-to-author-only...o.com?t=3" & _
" www.photo.com" & _
" http://p...content-available-to-author-only...o.com" & _
" https://p...content-available-to-author-only...o.com" & _
" http://w...content-available-to-author-only...o.nl?t=1&url=5" & _
"Photography Cameron, NC" & _
"Thank you so much ladies!!" & _
"The flower halos has beautiful items!" & _
"http://w...content-available-to-author-only...y.com" & _
"LIKE me on FACEBOOK for coupon codes, and to see my full product line!" & _
"http://w...content-available-to-author-only...k.com/byme"
		Dim MyRegex As Regex = New Regex("(?:(http|https|ftp)://|www\.)[a-zA-Z0-9.-]+(\.[a-zA-Z]{2,3})?(:[a-zA-Z0-9]*)?/?([a-zA-Z0-9._?,'/\\+&%$#=~-])*")
		Console.WriteLine(MyRegex.Replace(urlStr, ""))
	End Sub
End Class