Private Sub TB115_change()
'bearbeitet beim löschen keinen Leerstring
If Trim$(TB115.Text) = "" Then Exit Sub
    'Schreibt aus TB115 in Zelle I11:
    Sheets("Formular").Range("I11") = Me.TB115.Value
        'Umwandlung in Zahl (Zelle I11):
        Cells(11, 9).Value = CDec(TB115.Value)
 
End Sub

Private Sub TB115_LostFocus()
'Formatiert TextBoxen in ein Zahlenformat mit € oder %:
    TB115.Value = Format(TB115.Text, "#####,##0.00")
 
End Sub