Dim db As DAO.Database
    Dim rsInput As DAO.Recordset
    Dim rsOutput As DAO.Recordset
    Dim strSQL As String
    Dim strArr() As String
    Dim objRegex As Object
 
    ' Access nesnelerini oluştur
    Set db = CurrentDb
    Set rsInput = db.OpenRecordset("YourInputTable", dbOpenSnapshot)
    Set rsOutput = db.OpenRecordset("YourOutputTable", dbOpenDynaset)
 
    ' Regex nesnesini oluştur
    Set objRegex = CreateObject("vbscript.regexp")
    objRegex.Pattern = "^\s+(.+?)$"
 
    ' Giriş tablosundaki her kayıt için işlem yap
    Do Until rsInput.EOF
        strArr = Split(rsInput.Fields("Veri").Value, ",")
 
        ' Her bir eleman için işlem yap
        For i = LBound(strArr) To UBound(strArr)
            ' Yeni bir kayıt oluştur
            rsOutput.AddNew
            rsOutput.Fields("id").Value = rsInput.Fields("id").Value
            rsOutput.Fields("Veri").Value = objRegex.Replace(strArr(i), "$1")
            rsOutput.Update
        Next i
 
        rsInput.MoveNext
    Loop
 
    ' Nesneleri serbest bırak
    rsInput.Close
    rsOutput.Close
    Set rsInput = Nothing
    Set rsOutput = Nothing
    Set db = Nothing
    Set objRegex = Nothing

Sub dfdfs()
veri = "       Ahmet1, mehmet,       sali, ahmet  , 145,sureya  "
 Set objRegex = CreateObject("vbscript.regexp")
    objRegex.Pattern = "^\s+(.+?)$"
strArr = Split(veri, ",")
 
        ' Her bir eleman için islem yap
        For i = LBound(strArr) To UBound(strArr)
    Debug.Print "-" & objRegex.Replace(strArr(i), "$1") & "-"
    Next
End Sub