Add countIf to textbox (arrays)

Hi,

I have this code:

Dim lngColumn As Long
Dim lngLetters As Long
Dim lngAlphabet As Long
Dim varItems As Variant

lngColumn = CboDate.ListIndex + 5
varItems = Array("GG", "HH", "II", "JJ", "KK", "MM", "LL")

 For lngLetters = LBound(varItems) To LBound(varItems)
      lngAlphabet = Application.WorksheetFunction.CountIf(.Range(.Cells(3, lngColumn), .Cells(39, lngColumn)), varItems(lngLetters))
      textbox1.text= 
      Next lngLetters

I want to count number for each Item in array (within range) and add them to Textbox, example:

MM : 2
KK : 3 ...

How can I do that ?