tmpary = split(txtIP,".")
for i=0 to ubound(tmpary)
tmpary(i) = right("00" & tmpary(i),3)
next
txtIP = join(tmpary,".")

0埋めとか桁あわせとかってあんまり格好良く書けねんだよな