VB-obtain the number of times a character appears in it

1' Method 1: 2 dim STR as string 3 StR = "12345678" 4 msgbox (ubound (split (STR, "3") 5 6' Method 2: 7 dim N &, J & 8 J = 0 9 N = instr (1, text1.text, "/itemname") 10 while n <> 011 n = instr (n + 1, text1.text, text2.text) 12 J = J + 113 Wend 14 print (j) 15 16 17 'method 'call strcount (textbox8.text, "/itemname ") 19 20 function strcount (byval stra as string, byval strb as string) as long21 dim lnga as long22 dim lngb as long23 dim lngc as long24 lnga = Len (stra) 25 lngb = Len (strb) 26 lngc = Len (replace (stra, strb, "") 27 strcount = (lnga-lngc)/lngb28 msgbox (strcount) 29 30 31 end Function