Clear TextBox In Vb 6.0 less Code

//All Clear Teaxbox in vb6.0 less Code
Public Sub ClearText(ByRef SRC_FORM As Form)

On Error Resume Next

Dim Control As Control

For Each Control In SRC_FORM.Controls

If (TypeOf Control Is TextBox) Then Control = vbNullString

Next Control

Set Control = Nothing

End Sub