Visual Basic - hacer un metodo equivalente a otro

Necesito adaptar un metodo hecho por otra persona a mi programa, (el mio solo me funciona la primera vez y no se como solucionarlo)

El metodo de la otra persona es:

Private Property Get YaLeido(ByVal lngOffset As Long) As Boolean
Dim varOffset As Variant
For Each varOffset In m_colOffsetsLeidos ' tipo de datos declarado como collection
If varOffset = lngOffset Then
YaLeido = True
Exit Property
End If
Next varOffset
m_colOffsetsLeidos.Add lngOffset
End Property

Y el que yo estoy intentando hacer:

Public Property Get YaLeido(ByVal lngOffset As Long) As Boolean
Dim varOffset As Variant
Dim pos As Long
Dim i As Long
pos = UBound(arrMSG)
For i = 0 To pos
If lngOffset = varOffset Then

YaLeido = True
Exit Property
End If

Next i
varOffset = lngOffset
arrMSG(i - 1).lngOffset = lngOffset
End Property

Alguien sabria porque me esta fallando? muchas gracias

Pues sí: lo que te está fallando son los conceptos; no es un "método", sino una "propiedad". Desde ahí puedes partir.
Además de que no veo en ningún lado de tu código en dónde declaras "arrMSG", únicamente obtienes cuántos elementos tiene y ya (pos = UBound(arrMSG)
), jamás vuelves a usarlo ...

Más errores, declaras la variable "varOffset" ( Dim varOffset As Variant ) pero en ningún lado se ve que se le asigne valor. Luego la comparas así
If lngOffset = varOffset Then
pero ya dijimos que no tiene ningún valor o contenido. En cambio, en el otro código sí lo toma:
For Each varOffset In m_colOffsetsLeidos

Ahora vamos a esperar a que la quika te resuelva lo que sigue; yo ya ye ayudé haciendo notar algunos errores.

y tu quien eres usurpandome?, ahora ya que esas mi nombre, pues que siga siendo usado para algo productivo y mientras sigas contestando boludeces como yo, no hay problema.

jorgito_riatas ven y termina de contestar esta pregunta. ande escuincle bab0s0

el autentico ivan taliba