Определить количество целых чисел, входящих в указанную последовательность один раз - VB

Dim f As Boolean
m = 0
For i = 0 To n - 1
  f = False
  For j = 0 To n - 1
     If i <> j Then
        'If k(i) = k(j) or int(k(i))<>k(i) Then
        If k(i) = k(j) Then
          f = True
          Exit For
        End If
      End If
  Next j
 If f = False Then m = m + 1
Next i