From
Dim IParray(3) as Variant

to

Dim IParray as Variant

"Charlotte E." wrote:

Almost work :-)

It work when I don't have 'Option Explicit' enabled!

But with 'Option Explicit' enabled I get an error in the line:

IParray = split(IP,".")

If I don't Dim the variable I obviously get an "Variable not defined', but
if I try to Dim the variable with

Dim IParray(3) as Variant

I get a 'Cannot assign to Array'.


How to get by this problem???


CE


Joel wrote:
IP = "1.222.33.004"
IParrray = split(IP,".")

for i = 0 to 3
if i = 0 then
IP = format(val(IPArray(i)),"#000")
else
IP = IP & "." &format(val(IPArray(i)),"#000")
end if
next i

"Charlotte E." wrote:

If I have a string containing a given IP address - it could be any IP
address, like:

1.222.33.004

What would be the smartest/shortest code, to make sure that all
subnets have leading seros, like:

001.222.033.004



TIA,