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