Hola a ver, esto hice y funciona, lo hice rápido...
4 cajas de texto con el nombre por defecto
1 botón con nombre cmdvalidar
Código:
'funcion
Private Function validar()
If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" And Text4.Text <> "" Then
If Text1.Text = Text2.Text And Text1.Text = Text3.Text And Text1.Text = Text4.Text Then
MsgBox "Textos repetidos"
End If
End If
End Function
Código:
'validar texto
Private Sub cmdvalidar_Click()
validar 'llamada funcion
End Sub