VBA: Поместите значение трех ComboBox в одну ячейку Excel

Я пытаюсь создать формуляр, и у меня есть проблема. Я хочу поставить значение ComboBox1 (Days), ComboBox2 (Mounths) и ComboBox3 (Years) в одну ячейку Excel (Cell G)

Это часть моего скрипта:

f MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then i = WorksheetFunction.CountA(Range("A:A")) + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide MsgBox i Sheets("Reservations").Range("A" & i).Value = UserForm1.TextBox1.Value Sheets("Reservations").Range("B" & i).Value = UserForm1.TextBox2.Value Sheets("Reservations").Range("C" & i).Value = UserForm1.TextBox3.Value Sheets("Reservations").Range("D" & i).Value = UserForm1.TextBox4.Value Sheets("Reservations").Range("E" & i).Value = UserForm1.TextBox5.Value Sheets("Reservations").Range("F" & i).Value = UserForm1.ComboBox4.Value Sheets("Reservations").Range("G" & i).Value = UserForm1.ComboBox1.Value Sheets("Reservations").Range("H" & i).Value = UserForm1.ComboBox5.Value Sheets("Reservations").Range("I" & i).Value = UserForm1.ComboBox7.Value Sheets("Reservations").Range("E" & i).NumberFormat = "00 00 00 00 00" Sheets("Reservations").Range("H" & i).NumberFormat = "00" Sheets("Reservations").Range("G" & i).NumberFormat = "dd mmmm yyyy" End If End Sub 

Спасибо.

Давайте будем гением компьютера.