Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.AddRange(New String() {"Aくん", "Bくん", "Cくん", "Dくん", "Eくん", "Fくん", "Gくん", "Oくん", "Pくん", "Qくん"})
        ComboBox1.Items.AddRange(New String() {1, 2, 3, 4, 5})
        ComboBox2.Items.AddRange(New String() {1, 2, 3, 4, 5})
        ComboBox3.Items.AddRange(New String() {1, 2, 3, 4, 5})
        ComboBox4.Items.AddRange(New String() {1, 2, 3, 4, 5})
        ComboBox5.Items.AddRange(New String() {1, 2, 3, 4, 5})
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim goukei As Integer
        goukei = ComboBox1.SelectedItem
        goukei += ComboBox2.SelectedItem
        goukei += ComboBox3.SelectedItem
        goukei += ComboBox4.SelectedItem
        goukei += ComboBox5.SelectedItem
        TextBox1.Text = goukei
    End Sub

初心者の私ですが、これでどうでしょう。
自分でプログラムを作れると楽しいですよ。
いろいろVisuaBasicの本を買いましたが、このサイトが一番ためになりました。
このプログラムもこのサイトからコピペで作りました。Items.AddRange(New String() {1, 2, 3, 4, 5})で整数を代入してしてるのになぜ"New String()"なのかわかったら教えてください。