เขียนฟังก์ชั่นเองครับ
1. เขียนโค๊ดลงใน Module ดังนี้:

Public Function Count_Chr(txt_String As String) As Integer
    Dim i As Integer
    For i = 1 To Len(txt_String)
        If Mid(txt_String, i, 1) = "," Then
            Count_Chr = Count_Chr + 1
        End If
    Next
End Function

หรือแบบนี้ก็ได้ครับ

Public Function Count_Chr2(txt_String As String) As Integer
    Dim TCount As Integer, NCount As Integer
    NCount = 1
    Do
        TCount = InStr(NCount, txt_String, ",")
        If TCount > 0 Then
            NCount = 1 + TCount
            Count_Chr2 = Count_Chr2 + 1
        End If
    Loop Until TCount = 0
End Function

- ไม่รู้ว่าหากข้อมูลเยอะๆ อย่างไหนเร็วกว่ากัน หรือพอๆกัน เลือกใช้ซักอันก็พอนะครับ

2. ในคิวรี่ ใช้ฟังก์ชั่นกับฟิดล์ใหม่ดังนี้:

ผลลัพย์ที่อยากได้: Count_Chr([REASON])