Option Explicit
 
Private Sub Command1_Click()
On Error GoTo Err_Handler
    Dim quadrieren_zwischenergebnis As Double
    Dim quadrieren As Double
 
 
    quadrieren_zwischenergebnis = CDbl(Text1.Text)
    quadrieren = quadrieren_zwischenergebnis * quadrieren_zwischenergebnis
    Text1.Text = CStr(quadrieren)
 
Exit Sub
 
Err_Handler:
Select Case Err.Number
    Case 13
        'Es ist etwas eingegeben worden, was keine Zahl ist
        MsgBox "Bitte eine Zahl eingeben"
    Case 6
        'Überlauf
        MsgBox "Überlauf"
    Case Else
        'Anderer Fehler aufgetreten
        MsgBox Err.Description
End Select
End Sub