Capture 3 characters from Surname

[aman]

Hi guys

Can anyone please help me to capture 3 characters from the surname using vba?

e.g I am using environ("username") to capture name of the person who is logged on so how can we capture 3 letters from the surname and display in the textbox.

Thanks a lot.

 

[pbaldy]

You didn't say which 3, but you could use the Left(), Right() or Mid() functions on the result of the Environ() function.

 

[aman]

Hi pbadly

I want first 3 characters of the surname so how it can be done using vba.

Thanks

 

[Trevor G]

Try something like this in the VBA screen and display the immediate window.

Sub username()
Debug.Print Mid(Environ("Username"), 8, 3)

End Sub

 

[aman]

Trevor J, If the firstname is 10 characters long then it won't give the right result because final text will start from 8th character always and then will give next 3 letters.

Thanks

 

[Taruz]

Name and last name, separated by a space assuming, is in this way.:

Dim trz As String
trz = Environ("Username")
MsgBox Left(Mid(trz, _
       InStr(1, trz, " ") + 1), 3)

 

[aman]

Thanks a lot Taruz. It worked perfectly fine.