Wieso nicht in Textbox

Private Sub TextBox2_AfterUpdate()
If TextBox1 = "" Then
MsgBox " Sie müssen noch die Beschreibung in der Textbox eingeben !"
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Else
ThisWorkbook.Worksheets("Kulanzblatt-VK").Range("T41") = CDbl(TextBox2)
TextBox2 = Format(Worksheets("Kulanzblatt-VK").Range("T41").Value, ("#,##0.00"))
End If
End Sub