[Resolvido]caixa de combinação de preenchimento obrigatório

Bom dia, amigos.

Tenho num módulo, esta função abaixo para preenchimento obrigatório de uma comboBox.
Funciona normalmente; mas, se eu der apenas um espaço dentro dela e clicar em inserir, a mensagem não dispara e é inserido o campo em branco dentro da caixa de listagem.
O que é preciso acrescentar para corrigir isso?

'----
Public Function ComboObrigatorio(campoBox As comboBox) As Boolean      
If campoBox = "" Or IsNull(campoBox) Then
  ComboObrigatorio = True
  MsgBox " O campo '" & campoBox.Tag & "'é obrigatório.", vbCritical, "Atenção"
  campoBox.SetFocus
End If
End Function
'----

No evento ao clicar do "btInserir" tem essa chamada:

 If ComboObrigatorio(MinhaComboBox) = True Then Exit Sub

______________________
Grato!   Dorival - São Paulo

Resolvido
Vivendo e aprendendo!
Valeu, Alexandre...