Почему День/месяц меняются местами?Как сделать чтоб не менялись?
Всё работает верно. Просто дата в текстбоксе отображается в американском формате (ММ-ДД-ГГГГ).
Добавьте нужное форматирование и всё будет как хотите:
TextBox1.Value = Format(Sheets(1).Cells(1,1), "dd.mm.yyyy")
разные национальные форматы дат и времени