Private Sub Command1_Click()
    Dim Fehler As Boolean
 
    On Error GoTo Fehlerbehandlung
    Combo_Firma.Text = "test1"
    If Fehler = True Then
        MsgBox "Element existiert nicht in Combo_Firma"
    End If
    On Error GoTo 0
    Exit Sub
Fehlerbehandlung:
    Fehler = True
    Resume Next
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...