Clear all the TextBox values in a Form

Dim i, j, k As Integer
Dim con() As String
Dim txtentry As TextBox
For i = 0 To Me.Controls.Count - 1
If Me.Controls.Item(i).GetType().AssemblyQualifiedName.Substring(0, 35) = "System.Web.UI.HtmlControls.HtmlForm" Then
j = i
End If
Next
For i = 1 To Me.Controls.Item(j).Controls.Count - 1
If Me.Controls.Item(j).Controls.Item(i).HasControls Then
For k = 0 To Me.Controls.Item(j).Controls.Item(i).Controls.Count - 1
If Me.Controls.Item(j).Controls.Item(i).Controls.Item(k).GetType().AssemblyQualifiedName.Substring(0, 33) = "System.Web.UI.WebControls.TextBox" Then
txtentry = Me.Controls.Item(j).Controls.Item(i).Controls.Item(k)
txtentry.Text = ""
End If
Next
End If
If Me.Controls.Item(j).Controls.Item(i).GetType().AssemblyQualifiedName.Substring(0, 33) = "System.Web.UI.WebControls.TextBox" Then
txtentry = Me.Controls.Item(j).Controls.Item(i)
txtentry.Text = ""
End If
Next