strTemp = Right(str, Len(str) - InStr(str, start) + 1)
strTemp = Left(strTemp, InStr(strTemp, last) + Len(last) - 1)
End Select
Else
strTemp = ""
End If
CutFixContent = strTemp
End Function
Private Function CorrectPattern(ByVal str)
str = Replace(str, "", "")
str = Replace(str, "~", "~")
str = Replace(str, "!", "!")
str = Replace(str, "@", "@")
str = Replace(str, "#", "#")
str = Replace(str, "%", "%")
str = Replace(str, "^", "^")
str = Replace(str, "&", "&")
str = Replace(str, "*", "*")
str = Replace(str, "(", "(")
str = Replace(str, ")", ")")
str = Replace(str, "-", "-")
str = Replace(str, "+", "+")
str = Replace(str, "[", "[")
str = Replace(str, "]", "]")
str = Replace(str, "<", "<")
str = Replace(str, ">", ">")
str = Replace(str, ".", ".")
str = Replace(str, "/", "/")
str = Replace(str, "?", "?")
str = Replace(str, "=", "=")









