Sayın necasi123
Alttaki kodu kendi metin kutu isimlerinize göre değiştirerek dener misiniz?

Private Sub Metin0_Exit(Cancel As Integer)

Dim LString As String

Dim LArray() As String



LString = Me.Metin0

LArray = Split(LString, ",")



Me.Metin1 = LArray(0)

Me.Metin2 = LArray(1)

End Sub