Dim fullName As String
Dim firstName As String
Dim lastName As String
Dim spacePos As Integer

' Tam ismi almak
fullName = Me.Liste376.Column(7)

' Boşluk konumunu bulmak
spacePos = InStr(fullName, " ")

' İlk isim ve soyisimi ayırmak
If spacePos > 0 Then
firstName = Left(fullName, spacePos - 1)
lastName = Mid(fullName, spacePos + 1)
Else
firstName = fullName
lastName = ""
End If

' Maskeleme işlemi
If Len(firstName) > 3 Then
firstName = Left(firstName, 3) & "**"
Else
firstName = firstName & "**"
End If

If Len(lastName) > 3 Then
lastName = Left(lastName, 3) & "*****"
Else
lastName = lastName & "*****"
End If

' Sonuç
Me.txtSoyadi = firstName & " " & lastName