Public Function SplitStnSay(GVeri As String, Optional Ayrac As String = ",") As Integer
    On Error Resume Next
    Dim var As Variant
    Dim GAyrac As String
    GAyrac = Ayrac
    var = Split(GVeri, Ayrac)
    SplitStnSay = UBound(var) + 1
End Function

Private Sub Komut0_Click()
    
    Dim Sql As String
     Sql = "SELECT  max(SplitStnSay([Alan1])) AS [HsStn1] FROM Tablo1;"


    CurrentDb.QueryDefs("Sorgu1").sql = sql
    DoCmd.OpenQuery "Sorgu1"
    
End Sub

Private Sub Komut0_Click()
    
    Dim rs As Recordset, kes As String , y As Integer
    Dim scr As Object
    
    Set rs = CurrentDb.OpenRecordset("select Alan1 from Tablo1 where Alan1 like '*,*'")
    Set scr = CreateObject("Scripting.Dictionary")
    
    If rs.RecordCount > 0 Then
        Do While Not rs.EOF
        
            kes = rs(0)
            For y = 1 To Len(kes)
                If Mid(kes, y, 1) = "," Then say = say + 1
            Next
            If Not scr.Exists(say) Then scr.Add say, ""
            say = 0
            rs.MoveNext
        Loop
    End If
    
    bubble_sort (scr.Keys)

    rs.Close
    Set rs = Nothing
    Set scr = Nothing
    
End Sub

Function bubble_sort(arr)
    Dim x As Long, y As Long
    
    For x = 0 To UBound(arr) - 1
        For y = x To UBound(arr) - 1
            If CDbl(arr(x)) < CDbl(arr(y)) Then
                temp = arr(x)
                arr(x) = arr(y)
                arr(y) = temp
            End If
        Next
    Next
  bubble_sort = arr
  MsgBox arr(0)
End Function

int count = line.length() - line.replace(".", "").length();