Eliminar texto seleccionado de un TextBox

[lotusnovas]

Hola, estoy haciendo una peque~a aplicacion en la que tiene varios textbox pero yo quiero eliminar por ejemplo lo que tenga escrito en el textbox numero 2, encontre este ejemplo...

Borrar todos los textbox de un formulario

Si queremos eliminar el contenido de todas las cajas de texto de un formulario, podemos utilizar un bocle For Each y el operador Type Of

Ejemplo:

La rutina LimpiarTextBox, recibe como parámetro el formulario, por ejemplo para limpiar todo el contenido de todas las cajas de texto que hay en el el formulario actual, se ejecutaría la rutina de la siguiente forma:

Código vb:

Call LimpiarTextBox(Me)
 

Colocar en el formulario, un CommandButton y varios controles TextBox

Código fuente en el Form

Código vb:

Option Explicit
 
' recibe como argumento el formulario
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub LimpiarTextBox(frm As Form)
    ' recorre todos los controles que hay en el formulario
    For Each Control In frm.Controls
        ' verifica que el control es de tipo TextBox
        If TypeOf Control Is TextBox Then
            '... Si es un Textbox, entonces lo limpia
            Control.Text = ""
        End If
    Next
End Sub
 
' botón que limpia todos los textbox
'''''''''''''''''''''''''''''''''''''
Private Sub Command1_Click()
    Call LimpiarTextBox(Me)
End Sub
 

Pero al hacerlo me sale error "variable no definida" además de que el ejemplo ese borra el texto de todos los textbox.

Alguien me puede ayudar con este problema?

Gracias de antemano.