Public Function SplitVeriBul(GVeri As String) As Variant
Dim Dizi As Variant
Dim Say As Integer
Dizi = Split(GVeri, " ")
For Say = LBound(Dizi) To UBound(Dizi)
If Len(Dizi(Say)) = 8 And IsNumeric(Dizi(Say)) = True Then
SplitVeriBul = Left(Dizi(Say), 4)
Exit For
End If
Next
End Function
Sorgu:
UPDATE Tablo1 SET dogum_yili = SplitVeriBul([kisi]);