get all Form Item Names with webbrowser control

Public Function GetAllFormNames(doc As HTMLDocument, Form As Integer) As String
<p>
 Dim innames(20) As String
<p>
 Dim max As Integer
 <p>
 max = doc.Forms(Form).length
 <p>
 For i = 0 To max
<p>
If Not (doc.Forms(Form).Item(i) Is Nothing) Then
<p>
innames(i) = doc.Forms(Form).Item(i).name  
 <p>
   Debug.Print innames(i)
<p>
  End If
<p>
 Next i
<p>
End Function