vb popolare combobox da risultato di radiobutton

[maximum]

Prova così:

Private Sub Female_Click()
   gender = 2
   caricaCombo
End Sub

Private Sub Main_Click()
   clz = 2
   caricaCombo
End Sub

Private Sub Male_Click()
   gender = 1
   caricaCombo
End Sub

Private Sub Pre_Click()
   clz = 1
   caricaCombo   
End Sub

Private Sub caricaCombo()

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

End Sub