كيف استطيع استخلاص هذة البايانات من textbox ووضعها فى listbox ؟

مثال : بس بعد تغيير النص شوية لأنى لقيتك حاطط علامة : اكتر من 3 مرات فى جزء و آخر أسم مكرر بدون name بعديه :

Option Explicit

Private Sub Form_Load()

Dim strInput As String
Dim astrNames() As String
Dim intPos1 As Integer, intPos2 As Integer, intCnt As Integer

strInput = "<html><head><body>:::name:::ahmed:::name:::mahmoud:::name:::AT2K:::name:::msayed2004:::name:::</html></head>"


intPos1 = InStr(strInput, ":::")
intPos2 = InStrRev(strInput, ":::")

strInput = Left$(strInput, (intPos2 + 2))
strInput = Right$(strInput, Len(strInput) - (intPos1 - 1))

astrNames = Split(Trim$(strInput), ":::name:::")

For intCnt = 1 To UBound(astrNames) - 1
	If astrNames(intCnt) <> "" Then lstNames.AddItem astrNames(intCnt)
Next
End Sub