Eğer amacınızı yanlış anlamadıysam fonksiyonu değiştirmelisiniz
maksimum değeri bulmak için geri dönen değer ineteger olmalı ve GSayi silinmeli

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

Bu fonksiyonla ile alanın kac parca olduğu bulunabilir
Sql kodu da bu alanın Max olduğu değer olmali