Sub LoadBoxes()
        cob_ShopType.ResetText()
        cob_ShopType.Items.Clear()
        cob_ShopType.Items.Add("ShopType 1")
        cob_ShopType.SelectedIndex = 0 '<- Here it jump out of the sub
 
        cob_ShopVersion.ResetText()
        cob_ShopVersion.Items.Clear()
        cob_ShopVersion.Items.Add("1")
        cob_ShopVersion.Items.Add("2")
        cob_ShopVersion.SelectedIndex = 0
    End Sub

Sub LoadBoxes()
    Try
       With cob_shoptype
          .ResetText()
          .Items.Clear()
          .Items.Add("ShopType 1")
          .SelectedIndex = 0 '<- Here it jump out of the sub - I don't think so
       End With
 
       With cob_shopversion
           .ResetText()
           .Items.Clear()
           .Items.AddRange({"1", "2"})
           .SelectedIndex = 0
       End With
    Catch ex As Exception
       MessageBox.Show("LoadBoxes meldet: " & ex.Message)
    End Try
End Sub

Private Sub Form_Load()
    Dim Ergebnis As Integer
    Dim Zahl1 As Integer
 
    Zahl1 = 10
 
    On Error Resume Next
        'Fehler provozieren
        Ergebnis = Zahl1 / 0
 
        If Err.Number > 0 Then
            MsgBox "Fehlernummer: " & Err.Number & vbCrLf & "Fehlertext: " & _
              Err.Description
            Exit Sub
        End If
    Err.Clear
 
    MsgBox Ergebnis
End Sub