Hi Gert,

ich, als blutrünstiger VBA Anwender würde:

dich erst einmal nicht mit Control-Collection und Klassen überfordern, ergo:

Idee zum eingewöhnen

- fange den möglichen Fehler gleich bei der jeweiligen Textboxeingabe (Private Sub TextBox1_Exit)

- werte beim (Private Sub CommandButton1_Click) aus ob berechnet werden soll

Einfaches Beispiel:

'******************************************************************************
' Modul: UserForm1 / erstellt :  10.12.2014
'------------------------------------------------------------------------------
' Zweck / Inhalt :
' Userform1 mit:
' 2 x Textbox  -  Input
' 2 x Label - Output
' 1 x Commandbutton
'******************************************************************************

Option Explicit
Dim chkit, ncol As Variant 'für die Prüfung(en)

Private Sub CommandButton1_Click()
If Me.TextBox1.BackColor = ncol And Me.TextBox2.BackColor = ncol Then _
Me.Label1.Caption = "Ergebnis = " & _
Format(Berechne(Me.TextBox1.Value, Me.TextBox2.Value), "#")
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.Label1.Caption = "Ergebnis"
On Error Resume Next
chkit = CDbl(Me.TextBox1.Value)
If Err.Number = 13 Then
   'MsgBox "keine Zahl in Textbox"
   Me.TextBox1.BackColor = 255
Else
   Me.TextBox1.BackColor = ncol
End If
On Error GoTo 0
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.Label1.Caption = "Ergebnis"
On Error Resume Next
chkit = CDbl(Me.TextBox2.Value)
If Err.Number = 13 Then
   'MsgBox "keine Zahl in Textbox"
   Me.TextBox2.BackColor = 255
Else
   Me.TextBox2.BackColor = ncol
End If
On Error GoTo 0
End Sub


Private Sub UserForm_Initialize()
ncol = Me.TextBox1.BackColor 'eingestellte Farbe
Me.TextBox1.SetFocus
End Sub

Function Berechne(sTextBox1 As String, sTextBox2 As String) As Double
'
MsgBox "ich berechne"
'
End Function