function ChkURLs(ByVal strToFormat, ByVal sPrefix, ByVal iType)
	Dim strArray
	Dim Counter

	ChkURLs = strToFormat

	if InStr(1, strToFormat, sPrefix) > 0 Then
		strArray = Split(strToFormat, sPrefix, -1)
		ChkURLs = strArray(0)

		for Counter = 1 To UBound(strArray)
			if ((strArray(Counter-1) = "" Or Len(strArray(Counter-1)) < 5) And strArray(Counter)<> "") then
				ChkURLs = ChkURLs & edit_hrefs(sPrefix & strArray(Counter), iType)
			elseif ((UCase(Right(strArray(Counter-1), 6)) <> "HREF=""") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "[IMG]") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "[URL]") and _
				(UCase(Right(strArray(Counter-1), 6)) <> "[URL=""") and _
				(UCase(Right(strArray(Counter-1), 8)) <> "_BLANK"">") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "[WMV]") and _
				(UCase(Right(strArray(Counter-1), 6)) <> "[TUBE]") and _
				(UCase(Right(strArray(Counter-1), 9)) <> "[MYSPACE]") and _
				(UCase(Right(strArray(Counter-1), 6)) <> "[GVID]") and _
				(UCase(Right(strArray(Counter-1), 10)) <> "[METACAFE]") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "[WMA]") and _
				(UCase(Right(strArray(Counter-1), 4)) <> "[QT]") and _
				(UCase(Right(strArray(Counter-1), 4)) <> "[RV]") and _
				(UCase(Right(strArray(Counter-1), 7)) <> "FLASH]""") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "WMV]""") and _
				(UCase(Right(strArray(Counter-1), 4)) <> "QT]""") and _
				(UCase(Right(strArray(Counter-1), 4)) <> "RM]""") and _
				(UCase(Right(strArray(Counter-1), 7)) <> "[FLASH]") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "[FLV]") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "TUBE]") and _
				(UCase(Right(strArray(Counter-1), 6)) <> "ftp://") and _
				(UCase(Right(strArray(Counter-1), 8)) <> "file:///") and _
				(UCase(Right(strArray(Counter-1), 7)) <> "http://") and _
				
				(UCase(Right(strArray(Counter-1), 8)) <> "https://") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "SRC=""") and _
				(UCase(Right(strArray(Counter-1), 1)) <> "-") and _
				(UCase(Right(strArray(Counter-1), 1)) <> "=") and _
				(strArray(Counter) <> "")) then

				ChkURLs = ChkURLs & edit_hrefs(sPrefix & strArray(Counter), iType)
			else
				ChkURLs = ChkURLs & sPrefix & strArray(Counter)
			end if
		next
	end if
end function