@ozanakkaya hocamın izniyle bu da ayracını sizin belirleyebildiğiniz kod

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, -1)

SplitVeriBul = var(GSayi)

Debug.Print SplitVeriBul

End Function