Prova ad usare la funzione trim() e vedi che funziona...
codice:
If trim(CStr(cboCasaEditrice.Text)) = trim(CStr("Seleziona o digita nuova")) Then