SOLVE(Simple Algorithm With VB.net)