[VisualBasic] Index Außerhalb des Gültigen Bereichs!

Private Sub Command3_Click()
Dim sNames() As Variant
Dim I As Integer

 sNames = GetName()
 
 For I = 0 To UBound(sNames)
 List1.AddItem sNames(I)
 Next I

End Sub

Private Function GetName() As Variant
 Dim sNames() As Variant
 Dim sPos As Long
 Dim ePos As Long
 Dim nCount As Integer

 nCount = 0
 With WebBrowser1.Document.documentElement
 Do
 ' nach 'target="_blank">' suchen
 sPos = InStr(sPos + 1, .outerHTML, "target=""_blank"">", vbTextCompare)
 If sPos > 0 Then
 ' Schlusszeichen suchen </a>
 ePos = InStr(sPos + 7, .outerHTML, "</a> </td>")
 If ePos > 0 Then
 ' Array um ein Feld erweitern
 ReDim Preserve sNames(nCount)
 sNames(nCount) = Mid$(.outerHTML, sPos, ePos)
 nCount = nCount + 1
 End If
 Else
 sPos = 0
 End If
 Loop Until sPos = 0
 End With

 GetName = sNames
End Function

For I = 0 To UBound(sNames)