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