Call combobox_change function on exit.

Yeah, but I belive they shouldn't make diference. There is only Open() - initialisations of all comboboxes only.

Precisely:

Dim combo1
Dim combo2
Dim combo3
Dim combo4
Dim combo5
Dim combo6
Dim combo7
Dim combo8

If combo1 = 0 Then
    Arkusz1.ComboBox1.AddItem "rzszdrxcg", 0
    Arkusz1.ComboBox1.AddItem "tfufhgkjh", 1
    Arkusz1.ComboBox1.AddItem "i97yug", 2
    Arkusz1.ComboBox1.AddItem "890oy8978y", 3
    Arkusz1.ComboBox1.AddItem "sdjhksjhd", 4
    Arkusz1.ComboBox1.AddItem "skdgikjsd", 5
    Arkusz1.ComboBox1.Style = fmStyleDropDownList
    Arkusz1.ComboBox1.BoundColumn = 0
    Arkusz1.ComboBox1.ListIndex = 0
    combo1 = 1
End If

If combo2 = 0 Then
    Arkusz1.ComboBox2.AddItem "6y7uio", 0
    Arkusz1.ComboBox2.AddItem "er6dtucigyo", 1
    Arkusz1.ComboBox2.AddItem "auyk", 2
    Arkusz1.ComboBox2.AddItem "tfugvj", 3
    Arkusz1.ComboBox2.AddItem "ougyif˙", 4
    Arkusz1.ComboBox2.AddItem "5edtryc", 5
    Arkusz1.ComboBox2.AddItem "ydrtfuyi", 6
    Arkusz1.ComboBox2.AddItem "bmn,", 7
    Arkusz1.ComboBox2.Style = fmStyleDropDownList
    Arkusz1.ComboBox2.BoundColumn = 0
    Arkusz1.ComboBox2.ListIndex = 0
    combo2 = 1
End If

If combo3 = 0 Then

    Arkusz1.ComboBox3.AddItem "35t6yguj", 0
    Arkusz1.ComboBox3.AddItem "ouihkv", 1
    Arkusz1.ComboBox3.AddItem "rdtfyugvhi", 2
    Arkusz1.ComboBox3.AddItem "7u6gvj", 3
    Arkusz1.ComboBox3.AddItem "ty7u6yh˙", 4
    Arkusz1.ComboBox3.AddItem "sdhjhgj", 5
    Arkusz1.ComboBox3.AddItem "yuyguyhg", 6
    Arkusz1.ComboBox3.AddItem "uhikjh", 7
    Arkusz1.ComboBox3.AddItem "hgggg˙", 8
    Arkusz1.ComboBox3.AddItem "hgjhg", 9
    Arkusz1.ComboBox3.AddItem "nmb", 10
    Arkusz1.ComboBox3.Style = fmStyleDropDownList
    Arkusz1.ComboBox3.BoundColumn = 0
    Arkusz1.ComboBox3.ListIndex = 0
    combo3 = 1
End If

If combo4 = 0 Then
    Arkusz1.ComboBox4.AddItem "trcgfch", 0
    Arkusz1.ComboBox4.AddItem "hsdjh", 1
    Arkusz1.ComboBox4.AddItem "nnn", 2
    Arkusz1.ComboBox4.AddItem "ugugv", 3
    Arkusz1.ComboBox4.AddItem "iuyigb", 4
    Arkusz1.ComboBox4.AddItem "kljh", 5
    Arkusz1.ComboBox4.Style = fmStyleDropDownList
    Arkusz1.ComboBox4.BoundColumn = 0
    Arkusz1.ComboBox4.ListIndex = 0
    combo4 = 1
End If

If combo5 = 0 Then
    Arkusz1.ComboBox5.AddItem "ddd", 0
    Arkusz1.ComboBox5.AddItem "rrr", 1
    Arkusz1.ComboBox5.AddItem "ttt", 2
    Arkusz1.ComboBox5.AddItem "yyy", 3
    Arkusz1.ComboBox5.AddItem "uuu˙", 4
    Arkusz1.ComboBox5.AddItem "iii", 5
    Arkusz1.ComboBox5.AddItem "ooo", 6
    Arkusz1.ComboBox5.AddItem "ppp", 7
    Arkusz1.ComboBox5.Style = fmStyleDropDownList
    Arkusz1.ComboBox5.BoundColumn = 0
    Arkusz1.ComboBox5.ListIndex = 0
    combo5 = 1
End If

If combo6 = 0 Then

    Arkusz1.ComboBox6.AddItem "uuu", 0
    Arkusz1.ComboBox6.AddItem "iii", 1
    Arkusz1.ComboBox6.AddItem "jjj", 2
    Arkusz1.ComboBox6.AddItem "sss", 3
    Arkusz1.ComboBox6.AddItem "mmm˙", 4
    Arkusz1.ComboBox6.AddItem "nnn", 5
    Arkusz1.ComboBox6.AddItem "bbbb", 6
    Arkusz1.ComboBox6.AddItem "vvv", 7
    Arkusz1.ComboBox6.AddItem "ccc˙", 8
    Arkusz1.ComboBox6.AddItem "xxx", 9
    Arkusz1.ComboBox6.AddItem "zzz", 10
    Arkusz1.ComboBox6.Style = fmStyleDropDownList
    Arkusz1.ComboBox6.BoundColumn = 0
    Arkusz1.ComboBox6.ListIndex = 0
    combo6 = 1
End If

If combo7 = 0 Then

    Arkusz1.ComboBox7.AddItem "Other", 0
    Arkusz1.ComboBox7.AddItem "aa", 1
    Arkusz1.ComboBox7.AddItem "bb", 2
    Arkusz1.ComboBox7.AddItem "cc", 3
    Arkusz1.ComboBox7.Style = fmStyleDropDownList
    Arkusz1.ComboBox7.BoundColumn = 0
    Arkusz1.ComboBox7.ListIndex = 0
    
    combo7 = 1

End If

If combo8 = 0 Then

    Arkusz1.ComboBox8.AddItem "y", 0
    Arkusz1.ComboBox8.AddItem "n", 1
    Arkusz1.ComboBox8.Style = fmStyleDropDownList
    Arkusz1.ComboBox8.BoundColumn = 0
    Arkusz1.ComboBox8.ListIndex = 0
    combo8 = 1

End If

End Sub