الگوریتم شکافت هسته vb.net