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