Private Sub CommandButton1_Click() FirstLetter = Left(FirstName, 1) AbbreviatedSurname = Left(Surname, 5) UserName = FirstLetter & AbbreviatedSurname & DepartmentCode End Sub