Modifica la Sub "caricaCombo" così e ti funzionerà (ho provato io direttamente):

codice:
Private Sub caricaCombo()

   If gender = 1 And clz = 1 Then
      Combobrand.Clear
      g1clz1 = "love_u_h09"
      Combobrand.AddItem g1clz1
   End If
  
   If gender = 2 And clz = 1 Then
      Combobrand.Clear
      g2clz1 = "seeby_d_h09,mcq_d_h09,love_d_h09"
      arr_g2clz1 = Split(g2clz1, ",")
      For y = 0 To UBound(arr_g2clz1)
          Combobrand.AddItem arr_g2clz1(y)
      Next y
   End If
  
   If gender = 1 And clz = 2 Then
      Combobrand.Clear
      g1clz2 = "mcq_u_i09,love_u_i09,cs_u_i09"
      arr_g1clz2 = Split(g1clz2, ",")
      For z = 0 To UBound(arr_g1clz2)
          Combobrand.AddItem arr_g1clz2(z)
      Next z
   End If
  
   If gender = 2 And clz = 2 Then
      Combobrand.Clear
      g2clz2 = "seeby_d_i09,love_d_i09,mcq_d_i09,cs_d_i09,anna_d_i09,kj_d_i09"
      arr_g2clz2 = Split(g2clz2, ",")
      For w = 0 To UBound(arr_g2clz2)
          Combobrand.AddItem arr_g2clz2(w)
      Next w
   End If

End Sub