mükerrer engelleme

[hsayar]

Private Sub kaydet_Click()
With ComboBox1
  If Len(.Text) <> 10 Then
    MsgBox "GSM No on haneli olmalıdır."
    .SetFocus
    Exit Sub
  End If
End With
With ComboBox3
  If Len(.Text) <> 10 Then
    MsgBox "Barkod NO on haneli olmalıdır."
    .SetFocus
    Exit Sub
  End If
End With
..........................