Excel: перевести введенную дату в нормальный вид - VBA

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

Здравствуйте) Не могу решить эту задачу В ячейки вводятся даты и время без точек, перевести в нормальный вид.(с помощью кнопки)

Private Sub CommandButton1_Click()
 Dim date1 As String
 date1 = Int(Val(s))
 Dim time1 As String
  time1 = Int(Val(s))
  date1 = Range("A2:A10").Value
   time1 = Range("B2:B10").Value
 datTEXT = Format(date1, "dd/mm/yyyy")
 timeTEXT = Format(time1, "[h]:mm")
MsgBox datTEXT & "   ,  " & timeTEXT
End Sub

это незаконченная версия (надо добавить область (весь лист), не знаю как) помогите пожалуйста

Решение задачи: «Excel: перевести введенную дату в нормальный вид»

textual
                            Листинг программы 
                        
                            s = "21051998 1945" '[A1]
MsgBox CDate(Format(s, "00/00/0000 00:00"))