"VBA" Programlama dilinde "Bir Stringdeki Her Karakterin Sayısını Bulma Örneği" ile ilgili kod örneği aşağıda belirtilmiştir.

Sub countChars()
    Dim str1 As String
    Dim charDict As New Scripting.Dictionary
    Dim i As Integer, count As Integer
    str1 = "YazılımSeviyorum"
    
    For i = 1 To Len(str1)
        If charDict.Exists(Mid(str1, i, 1)) Then
            count = charDict(Mid(str1, i, 1))
            charDict(Mid(str1, i, 1)) = count + 1
        Else
            charDict.Add Mid(str1, i, 1), 1
        End If
    Next i
    
    Debug.Print "Sonuc:"
    For Each key In charDict.Keys
        Debug.Print key & ": " & charDict(key)
    Next key
End Sub