Private Sub Form_Load()
Dim MiVector
Dim TamañoVector As Long
Dim i As Long, j As Long, k As Long
Dim ValorVector
Dim ValorComparar
MiVector = Array("Casa", "Auto", "Cocina", "Casa", "Cochera", "Baño", "Comedor")
TamañoVector = UBound(MiVector)
k = 1
For i = 0 To TamañoVector - 1
For j = i + 1 To TamañoVector
ValorVector = MiVector(i)
ValorComparar = MiVector(j)
If UCase(ValorVector) = UCase(ValorComparar) Then
k = k + 1
End If
Next j
MsgBox "la variable " & ValorVector & " se encontro " & k & " veces."
k = 1
Next i
End Sub