Imprimir numeros repetidos de un vector VISUAL BASIC

[paa1992]

Ok mira he hecho esto:

Dim d, m As Integer
d = 0
m = Val(txtnumrepetido.Text)


For i = 0 To n
If m = vector(i) Then
d = d + 1
Else
txtveces.Text = ("no existe")
End If
txtveces.Text = (d & " veces")
Next

Ahi lo que hace es que al pedirle un numero ingresado por un textbox me dice cuantas veces se repite.. Lo que digo es como puedo hacer para que el numero mas repitido me salga en el textbox sin tener que indicarle el numero...