Option Compare Database
Public scr As New Scripting.Dictionary

Public Function SplitVeriBul(GVeri As String, GSayi, Optional Ayrac As String = ",") As Variant
    On Error Resume Next
    Dim var As Variant
    Dim GAyrac As String
    GAyrac = Ayrac
    var = Split(GVeri, GAyrac)
    SplitVeriBul = var(GSayi)
    
    scr(UBound(var)) = scr(UBound(var))

End Function

Private Sub Komut0_Click()
    
    Dim Sql As String
    Dim xx
    Dim arr1 As Object
    
    Sql = "SELECT Alan1, SplitVeriBul([Alan1],0) AS [Ayir 1] FROM Tablo1"
    
    CurrentDb.QueryDefs("Sorgu1").sql = sql
    DoCmd.OpenQuery "Sorgu1"
    
    
    Set arr1 = CreateObject("System.collections.arraylist")
    With arr1
        For Each xx In scr.Keys
            If Not .contains(xx) Then arr1.Add xx
        Next
        On Error Resume Next
        arr1.reverse
        Err.Clear
        MsgBox arr1(0)
    End With

End Sub