Private Sub CommandButton1_Click()
Range("B6") = TextBox2.Text
End Sub
Private Sub UserForm_Initialize()
Dim Articles As Variant, arDate
arDate = Array(Year(Date), Left(Format(Date, "mmm"), 3), Format(Date, "dd"))
TextBox2 = UCase(Join(arDate, "-"))
End Sub