Kontrol kodlarını kısaltmak

[macay]

Sayın üstadlar,
Sizden yardım isteğim iki problemim var
1-Kaydet butonuna clik olayına bağlı aşağıdaki kontrollerim var ve bu böyle 20 tane alt alta gidiyor bu kodu daha kısaltmak mümkünmüdür ?

If Trim(Me.TxtBobMik1.Value) > 0 And Me.CboMakNo1.Value = "" Then
  Me.CboMakNo1.SetFocus
  MsgBox "Lütfen Makinayı seçin"
  Exit Sub
End If

If Trim(Me.TxtBobMik2.Value) > 0 And (Me.CboMakNo2.Value) = "" Then
  Me.CboMakNo2.SetFocus
  MsgBox "Lütfen Makinayı seçin"
  Exit Sub
End If

If Trim(Me.TxtBobMik3.Value) > 0 And (Me.CboMakNo3.Value) = "" Then
  Me.CboMakNo3.SetFocus
  MsgBox "Lütfen Makinayı seçin"
  Exit Sub
End If

ikinci sorum initialize olayına bağlı olarak gelişen aşağıdaki şekilde her combobox için seçildiği anda aşağı açılmasını sağlayan kodlarım var ve bunu her combobox için böyle tanımladım tahmin ettiğiniz gibi sadece bunla ilgili 70-80 satır oldu, nesneler için Cbomakno1,cbomakno2,cbomakno3..._enter diye bir satırda hepsini tanımlayıp işlemi yaptırabileceğimiz bir kod yazımı olabilirmi

saygılarımla,

Private Sub Cbomakno1_Enter() 'combo seçildiği anda açılmasını sağlayan kodlar
CboMakNo1.DropDown
End Sub

Private Sub Cbomakno2_Enter() 'combo seçildiği anda açılmasını sağlayan kodlar
CboMakNo2.DropDown
End Sub
Private Sub Cbomakno3_Enter() 'combo seçildiği anda açılmasını sağlayan kodlar
CboMakNo3.DropDown
End Sub