Text in Zeichenkette formatieren

Function die folgendermaßen aussieht:

Function Vorschau(Marke As String, Produkt As String, Herkunft As String, Zusatztext
As String, Einheit As String, Stattpreis As String, PreisInfo As String, Aktionspreis
As String, Preisbezeichnung As String, billiger As String, GP As String) As String
x = Marke & Chr(10) & Produkt & Chr(10) & Herkunft & Chr(10) & Zusatztext & Chr(10) &
Einheit & Chr(10) & Stattpreis & Chr(10) _
& PreisInfo & Chr(10) & Aktionspreis & Chr(10) & Preisbezeichnung & Chr(10)
& billiger & Chr(10) & GP & Chr(10)
Vorschau = x
End Function


Nun hätte ich gerne das der "Stattpreis" in der Zeichenkette durchgestrichen dargestellt 

wird. ich habs schon mit .Strikethrough = True versucht, bekomme 

das aber nicht auf die Reihe.

Wer kann mir weiterhelfen??

Danke 

Celina