Double click to fill cell with date&time and a cell before with applicationuser name

Hi all,
I am struggling with the following code.
Double click function to populate date and time ( NOW) has been achieved and is working fine.

I want to add to this code to populate application.username in the adjacent cell before with application.username.

If this is achieved, then I further want to shrink the name to ( first name and then initials- as derived from applicationusername)

Is this possible
Any help please.
Please see attached file
Code:

Please Login or Register  to view this content.

Kind regards

Sorry , the file was not attached correctly.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("sheet1").Unprotect "abcd"
Application.ScreenUpdating = False
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Target.Value = Now()
'I want to add code here that in column A corresponding cell ( range A:A )will have application.username.
'in the application username Only the first name and last name as initials ( e.g.) if name is Mike Pat then it will be Mike P
Cancel = True
Sheets("sheet1").Protect "abcd"
Application.ScreenUpdating = True
End If
End Sub

Hi everyone,
I have resolved the first part.
New code is as follows.

Please Login or Register  to view this content.

Any help will be appriciated

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("sheet1").Unprotect "abcd"
Application.ScreenUpdating = False
If Not Intersect(Target, Range("B:B")) Is Nothing Then
'added following line and works fine
Target.Offset(0, -1) = Application.UserName
'I want to shrink name to first name and initial now
Target.Value = Now()
Cancel = True
Sheets("sheet1").Protect "abcd"
Application.ScreenUpdating = True
End If
End Sub

Apology
Clicked twice and made a mistake. Code tags are missing
Apology

Hi all,
Thanks
I have found solution using formula instead of vba to separate first name from full name & second name as initials.
Many thanks everyone.
I am closing this thread
Kind regards