a* (A star ) algorithm VB version (source file)