Bcoon

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