Comparar caixas de texto em formulário.

If Me.txtFabricanteCon <> Me.txtFabricanteTerm Then
If Dialog.Box("Os fabricantes não são coincidentes.\nTem certeza que usará este componente para associação?", vbYesNo + vbQuestion + vbDefaultButton3, "Incopatibilidade de Cavidades") = vbYes Then
CurrentDb.Execute "INSERT INTO 0tblCompAssoc(PnConector, PnAssoc) VALUES('" & Me.cboPnConector & "', '" & Me.cboPnTerm & "')"
Forms!fmrAssoc!SubfmrTermAssoc.Requery
Me.cboPnTerm.Undo
Me.cboPnConector.SetFocus
Cancel = True
End If
End If

Podemos aproveitar esta última característica para 'contar' quantas vezes uma substring aparece numa string. Por exemplo , suponha que você queira saber quantas vezes a substring "do" aparece na frase : "Avaliação do impacto do treinamento no trabalho do programador". Usando Split fica fácil ...:

1:Dim frase As string

2:Dim vetor As Variant



3:frase = "Avaliação do impacto do treinamento no trabalho do programador"

4:vetor = Split(frase,"do")

5:MsgBox " 'do' aparece na texto ' " & frase & " ' " & UBound(vetor) & " vezes."

Você ter como resposta que 'do' aparece 4 vezes no texto, pois 'do' também esta contida na palavra 'programador'. Para contar somente as ocorrências da preposição 'do' altere a linha 4 do código para: 4:vetor = Split(frase," do ") e você obterá como resposta 3 vezes.