Public Function sayLen(GVeri As String, Optional Ayrac As String = ",") As Integer

    On Error Resume Next

    sayLen = Len(GVeri) - Len(Replace(GVeri, Ayrac, "")) + 1

End Function



Public Function splitVeri(GVeri As String, GSayi As Integer, Optional Ayrac As String = ",") As String

    On Error Resume Next

    splitVeri = Split(GVeri, Ayrac)(GSayi)

End Function