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
böylede oluyormuş