ComboBox - VBWEB

Seguinte: tenho um combo onde carrego dessa maneira:

With ComboImpressora

.Clear
.AddItem "HP Deskjet 840c - Logística"
.AddItem "RICOH Ofício 1015 PCL - Arquivo"

Quando carrego o form o combo aparece vazio. Pergunto, como posso adaptar a função abaixo que encontrei nas dicas do FORUM no IF do meu codigo em vermelho? E como chama-la?

Public Function ehVazio(ctrControl As Control) As Boolean
    ehVazio = False
    If TypeOf ctrControl Is ComboBox Then
         If ctrControl.ListIndex = -1 Then
            MsgBox ("O Campo " & ctrControl.Tag & " não foi selecionado"), vbExclamation
            ctrControl.SetFocus
            ehVazio = True
        End If
    Else
        If ctrControl.Text = "" Then
            MsgBox ("O Campo " & ctrControl.Tag & " está em branco"), vbExclamation
            ctrControl.SetFocus
            ehVazio = True
        End If
    End If
End Function

Private Sub CmdImprimir_Click()
Dim busca As String

If Op_Data.Value = False And Op_Codigo.Value = False And Op_Geral.Value = False Then
    busca = MsgBox("É necessário selecionar uma das opções para acionar impressão.", vbInformation, "Amidy - Relatórios")
       Else
         Impressora
End If

End Sub