Limpando TextBox

Sub Limpar()

    For Each c As Control In Me.Controls

        If TypeOf c Is TextBox Then 'Escolha qualquer tipo de controle

           c.Text = String.Empty 'Escolha qualquer tipo de propriedade

        End If

    Next

End Sub