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