You make it too hard...
Code:
Dim Octets
Octets = Split(IP, ".")
Dim ret As String
ret = ret & chr(cint(octets(0)))
ret = ret & chr(cint(octets(1)))
ret = ret & chr(cint(octets(2)))
ret = ret & chr(cint(octets(3)))
Code:
Dim ret as String
ret = cstr(asc(mid(cmpd_ip, 1, 1)))
ret = ret & "."
ret = ret & cstr(asc(mid(cmpd_ip, 2, 1)))
ret = ret & "."
ret = ret & cstr(asc(mid(cmpd_ip, 3, 1)))
ret = ret & "."
ret = ret & cstr(asc(mid(cmpd_ip, 4, 1)))
Should work...

Z.