Ввод в один textBox номер заказа и дату - VBA

Формулировка задачи:

Доброго времени суток. На форме расположен textBox в который нужно ввести №заказа и после цифры кликнуть по полю вызвать календарь ,выбрать дату и занести в текстбокс. При выборе даты выдает ошибку? Как нужно подкорректировать код?

Решение задачи: «Ввод в один textBox номер заказа и дату»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Cmd_Select_Click()
'    'Команда - закончить выбор даты и закрыть форму
    SelectedDate = CStr(DateValue(dt_1))
    'Forma.TextBox1.Value = Me.TextBox_Дата.Value'это всё портит
 
    If Len(Forma.TextBox1) Then
        If Forma.TextBox1 Like "*/*" Then Exit Sub
        '      Form_SelectDate.Show'это лишнее
        Forma.TextBox1 = Forma.TextBox1.Text & "/" & Format(Form_SelectDate.TextBox_Дата, "dd.mm.yyyy")
    End If
    'Get_Date(Forma.TextBox1, Now) &'это выше было лишнее
 
    Unload Me
End Sub