Sum of digit in microsoft visual basic using function