把一个IP地址转成16进制的数字该怎么转啊，急！！！

'转换过程如下:
'1、取得IP，如：192.168.0.1
'2、再将IP顺序反转：1.0.168.192
'3、将IP分成四部分，分别转成16进制，位数不足，在左边加0，转换完成后为：01.00.A8.C0
'4、去掉所有的"."，结果为：100A8C0
'5、再将其转成十进制：16820416

'// IP到数字转换
Public Function IPToNumber(ByVal strValue As String) As String
Dim strTemp As String
Dim strIP() As String
Dim strOutput As String
Dim i As Integer

On Error GoTo LocatErr

'// 将IP分成4个部份
strIP = Split(strValue, ".")

'// 这里是将IP倒过来的，即：192.168.0.1=1.0.168.192
For i = 3 To 0 Step -1
strTemp = Hex$(strIP(i))
'// 将每部份以2位数的数字表示
strOutput = strOutput & String(2 - Len(strTemp), "0") & strTemp
Next

IPToNumber = CStr(Trim(CLng("&H" & strOutput)))

Exit Function
LocatE