Function ReplaceStrVB(txt,s1,s2)
		ReplaceStrVB=Replace(txt,s1,s2)
End Function