Have you tested this code? It looks wrong to me. I would worry about it being right before it being simple. I think you should have:

while ( $vlnum > 0 ) {
       $vldig = $vlnum % 10; 
       $vlsum = $vlsum + ($vldig * $vldig * $vldig);
       $vlnum = int($vlnum / 10);
}
[download]