Public Function SplitVeriBul(GVeri As String, GSayi) As Variant
On Error Resume Next
Dim var As Variant
var = Split(GVeri, "|", -1)
SplitVeriBul = var(GSayi)
End Function

SELECT  SplitVeriBul([Alan1],0) AS ilksayi, SplitVeriBul([Alan1],1) AS ikincisayi, SplitVeriBul([Alan1],2) AS ucuncucisayi FROM Tablo1;

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