กำหนดขนาดรูป ที่ดึงมาจาก DB โดยใช้ Regexp อย่างไรครับ

Function resizepicture(txt)
	On Error Resume Next
		Set regex = New RegExp
		Set regex1 = New RegExp
		regex.Pattern = "width='^\[610-2000]$'"
		regex1.Pattern = "width=^\[610-2000]$"
		txt = regex.replace(txt,"width='450'")
		txt = regex1.replace(txt,"width=450")

		resizepicture = txt
	If Err Then
		resizepicture=""
	end if
End Function