Visual Basic - como hago o que metodo uso para que cuando selecione un item del combox1 el combo box 2 no lo carge

Private Sub Form_Load()

  Combo1.AddItem ""

  Combo1.AddItem "Dolar"

  Combo1.AddItem "Libra"

  Combo1.AddItem "Pesos"

  Combo1.AddItem "Soles"

  Combo1.ListIndex = 0

End Sub

Private Sub Combo1_Click()

  Combo2.Clear ' Vaciamos el Combo2

  Call CargaCombo2 ' Lo llenamos de nuevo

  If Combo1.Text = "" Then Exit Sub

For x = 0 To Combo2.ListCount - 1

  'Recorremos y seleccionamos cada Item del Combo2

  'Para ver si el texto coincide con el seleccionado en el Combo1

  Combo2.ListIndex = x

 If Combo2.Text = Combo1.Text Then 'Si el Combo2 contiene el

    Combo2.RemoveItem (x)          'Item seleccionado en el uno

    Combo2.ListIndex = 0           'lo borramos

    Exit Sub

   End If

  Next

End Sub

Private Sub CargaCombo2()

  Combo2.AddItem ""

  Combo2.AddItem "Dolar"

  Combo2.AddItem "Libra"

  Combo2.AddItem "Pesos"

  Combo2.AddItem "Soles"

  Combo2.ListIndex = 0

End Sub