userform merge vaule of combobox and sheet cell value

Hi,
I have a userform that has a few txtboxs, combobox etc.

TextBox12 displays a value of a helper cell on sheet 2 cell J2
ComboBox7 drops down to display users names

Is there a way I can convert the full name(eg:Joe Bloggs) selected in ComboBox7 to Initials(eg: JB)
and merge it with the value in TextBox12, for example the result will be JB01

Private Sub CheckBox1_Click()
    TextBox14.Value = " " & Time
End Sub

Private Sub CommandButton2_Click()
    UserForm1.Show
End Sub
 
Private Sub CommandButton1_Click()
ScreenUpdate = False
 Sheets("Enquiries Record").Activate
 Range("A65536").Select
 Selection.End(xlUp).Select
 ActiveCell.Offset(1).Select
 ActiveCell.Value = Me.TextBox1
 ActiveCell.Offset(0, 2).Value = Me.TextBox12
 ActiveCell.Offset(0, 3).Value = Me.ComboBox2
 ActiveCell.Offset(0, 4).Value = Me.ComboBox1
 ActiveCell.Offset(0, 5).Value = Me.TextBox2
 ActiveCell.Offset(0, 6).Value = Me.TextBox14
 ActiveCell.Offset(0, 7).Value = Me.TextBox3
 ActiveCell.Offset(0, 8).Value = Me.ComboBox3
 ActiveCell.Offset(0, 9).Value = Me.ComboBox4
 ActiveCell.Offset(0, 10).Value = Me.ComboBox5
 ActiveCell.Offset(0, 11).Value = Me.ComboBox7
 ActiveCell.Offset(0, 13).Value = Me.TextBox11
 ActiveCell.Offset(0, 14).Value = Me.TextBox5
 ActiveCell.Offset(0, 15).Value = Me.TextBox6
 ActiveCell.Offset(0, 16).Value = Me.TextBox7
 ActiveCell.Offset(0, 17).Value = Me.TextBox8
 ActiveCell.Offset(0, 18).Value = Me.TextBox9
 ActiveCell.Offset(0, 19).Value = Me.ComboBox6
 ActiveCell.Offset(0, 20).Value = Me.TextBox10
 ActiveCell.Offset(0, 21).Value = Me.TextBox13

 ComboBox2 = ""
 ComboBox1 = ""
 TextBox3 = ""
 ComboBox3 = ""
 ComboBox4 = ""
 ComboBox5 = ""
 ComboBox7 = ""
 TextBox11 = ""
 TextBox5 = ""
 TextBox6 = ""
 TextBox7 = ""
 TextBox8 = ""
 TextBox9 = ""
 ComboBox6 = ""
 TextBox10 = ""
 TextBox13 = ""
   
 Sheets("New Enquiry").Activate
 ActiveWorkbook.Save
  Unload Enquirysubmit
  ScreenUpdate = True
 End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = " " & Date
TextBox2.Value = " " & Time
TextBox12.Value = Sheet2.Range("J2").Value
End Sub

Hi Leith,

Thank you very much. Works like a charm when you submit it to the spreadsheet.

Is there a way to have that update the record number txtbox on the userform before submitting? As in, it will say record "5" using the helper cell on sheet 2 and when you select a name from the list(combobox7) and click on the selection the record number will change to "AH05"

Also, I know this is probably out of scope for this thread. But I set the formatting of the helper column to prefix the record number with a zero"0" but it doesn't display that zero on the user form.