dato i tekstbox

Et forsøg: Tekstboks = Format(celleref,"dd-mm-yyyy")

Hvordan mener du det skal settes ind?
hele koden er her.

Sub Oplysninger_8_Dage_frem()
   
    x = [Oplysninger!C10]
    x = x + 7
    [Oplysninger!C10].Value = x
    '*************Opdater tekstblokke
    ActiveSheet.Unprotect
    Set MinCell = ActiveCell
   
    ActiveSheet.DrawingObjects("Tekst 24").Select
    Selection.Characters.Text = [Oplysninger!C10]
   
    ActiveSheet.DrawingObjects("Tekst 25").Select
    Selection.Characters.Text = [Oplysninger!C10+7]
   
    ActiveSheet.Protect
    MinCell.Select
End Sub

Kan man evt. linge en tekstbox til en celle?

Dette viser dato rigtigt:

    Selection.Characters.Text = Format([Oplysninger!C10], "dd-mm-yyyy")

Tusind tak jeg har rodet og rodet, men kunne ikke finde en løsning.

Selv tak :-)