VBA removing first character from the string

Sub removefirstchar()
Dim employee_name As String
employee_name = InputBox("Enter the Employee Name")
Range("a1").Value = Trim(Right(employee_name, Len(employee_name) - 1))
End Sub