A vulgar joke

Turn a character into a number, and the private function chart (strcharas string) is an integer. select case strcharcase "a ","a" CharToNum = 1 Case "B ","b" CharToNum = 2 Case "C ", "c" CharToNum = 3 Case "D", "d" chartonum = 4 case else chartonum = 5 end select end function' Add a command1buttonprivate subcommand65 to the form. 438+0 _ click () dim I as integer dim tmp as string tmp = "asdrdfsfjsdbasejsfj" for I = 1 tolen (tmp) print chartonum (mid (tmp, i,1))' Print the next iEnd Sub in the debugging window.