!关于使用VB脚本计算ip号码段的有关问题

求助!关于使用VB脚本计算ip号码段的问题。
我不会VB脚本。工作中有位客户以前在我们这做的网站。网站上有一个栏目，只有公司内部才能看到，现在客户公司的ip变了，需要重新修改一下ip段。由于当时给客户做网站的同事离职了，而现在在职的同事也不太懂。所以请高手解决一下。现在需要把IP段变成211.100.224.110到211.100.224.125 ，因为其中把IP地址做了编码。请高手帮忙把新的IP的起始编码，跟结束编码回复一下，万分感谢。
IP编码代码-------------------------------
Function EncodeAddr(sIp)
Dim str1, str2, str3, str4

str1 = Left(sIp, CInt(InStr(sIp,".") - 1))
sIp = Mid(sIp, CInt(InStr(sIp,".")) + 1)
str2 = Left(sIp, CInt(InStr(sIp,".")) - 1)
sIp = Mid(sIp, CInt(InStr(sIp,".")) + 1)
str3 = Left(sIp, CInt(InStr(sIp,".")) - 1)
str4 = Mid(sIp, CInt(InStr(sIp,".")) + 1)

If isNumeric(str1) = 0 Or isNumeric(str2) = 0 Or isNumeric

(str3) = 0 Or isNumeric(str4) = 0 Then
sIp = 0
Else
sIp = CInt(str1)*256*256*256 + CInt(str2)*256*256 + 

CInt(str3)*256 + CInt(str4) - 1
End If

EncodeAddr = sIp
End Function

IP限制内容编码-----------------------------------
Function limitedSoftXML(xslFile,xmlCondition,mode)
Dim IpStart, IpEnd

IpStart = 3549631040 ' 起始地址
IpEnd = 3549631068 ' 结束地址

' 获取用户IP地址
UserIp = Request.ServerVariables("HTTP_X_FORWARDED_FOR") '测

试客户端是否用代理
If UserIp = "" Then UserIp = Request.ServerVariables

("REMOTE_ADDR")

UserIp = EncodeAddr(UserIp)

If (UserIp >= IpStart) And (UserIp =< IpEnd) Then
limitedSoftXML = TransSoftXML

(xslFile,xmlCondition,mode)
Else
limitedSoftXML = "<br/><br/><div align=""center"" 

style=""font-weight:bold;color:#FF0000"">对不起，此处内容仅内部用户可

以浏览！</div>"
End If
End Function

------解决方案--------------------
IpStart = 3546603630 ' 起始地址 
IpEnd = 3546603645 ' 结束地址 

------解决方案--------------------
顶hookee。计算无误。