Private Sub Komut0_Click()
    
    Dim sql As String
    
    sql = "SELECT Alan1, SplitVeriBul([Alan1],0) AS [Ayir 1]," & _
                        "SplitVeriBul([Alan1],1) AS [Ayir 2]," & _
                        "SplitVeriBul([Alan1],2) AS [Ayir 3]," & _
                        "SplitVeriBul([Alan1],3) AS [Ayir 4]," & _
                        "SplitVeriBul([Alan1],4) AS [Ayir 5] FROM Tablo1;"

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

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)

End Function

Public Function SplitVeriBul(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, GAyrac)
    SplitVeriBul = ubound(var()) + 1
End Function