Function prefixURLs(txt As String,prefix As String) As String
	Dim vRet As Variant
	Dim strRolling As String
	Dim x As Integer
	'Print "<content:encoded><![CDATA[ " + prefixURLs(rsscontent,basehref)+ " ]]></content:encoded>"
	'Call extractThumbnail(folder, rsscontent) 
	' Images
	
	vRet = Split(txt, "src=""")
	strRolling=vRet(0)
	
	If Ubound(vRet)>0 Then
		For x = 1 To Ubound(vRet)
			If Left(vRet(x),4)<>"http" Then
				If Instr(vRet(x),"OpenElement")>0 Then
					strRolling=strRolling+"src="""+prefix+"/dx/"+vRet(x)
				Else
					strRolling=strRolling+"src="""+prefix+"/dx/"+vRet(x)
				End If
			Else
				strRolling=strRolling+"src="""+vRet(x)
			End If
			
		Next
	End If
	
	' Local Links
	vRet = Split(strRolling, "href=""")
	strRolling=vRet(0)
	
	If Ubound(vRet)>0 Then
		For x = 1 To Ubound(vRet)
			If Left(vRet(x),4)<>"http" Then
				strRolling=strRolling+"href="""+prefix+"/dx/"+vRet(x)
			Else
				strRolling=strRolling+"href="""+vRet(x)
			End If
			
		Next
	End If
	
	prefixURLs=strRolling
End Function