TextBox con valor para condicion IF

Prueba con lo siguiente:

    If Val(TextBox1.Value) > 1 Then
        rutina
    End If

[sal u dos

Gracias por su aportacion, ya coloque la modificacion y efectivamente ya no hace la rutina, pero tampoco me la valida para actualizar la celda. El textBox que debe validar que exista para actualizar un ejemplo es: EST-45 (textbox11)

Mi codigo lo tengo asi: 

Private Sub EstatusVale()

If Val(TextBox11.Value) > 1 Then
Set h = Sheets("ESTATUS")
'busca el producto con Find
Set b = h.Columns("A").Find(TextBox11.Text, lookat:=xlWhole)
If Not b Is Nothing Then
fila = b.Row
h.Cells(fila, "O").Value = lbl_folio.Caption 'actualiza salida
Else
MsgBox "No existe el folio"
End If
End If
End Sub

¿Pero qué datos vas a poner en el textbox?

Si vas a poner letras, ¿por qué pones textbox > 1? Eso es un expresión para utilizarse con valores numéricos.

¿Lo qué quieres es verificar si en el textbox pusieron algún dato?

Si es así entonces, debería ser así:

Private Sub EstatusVale()
    If TextBox11.Value <> "" Then
        Set h = Sheets("ESTATUS")
        'busca el producto con Find
        Set b = h.Columns("A").Find(TextBox11.Text, lookat:=xlWhole)
        If Not b Is Nothing Then
            fila = b.Row
            h.Cells(fila, "O").Value = lbl_folio.Caption 'actualiza salida
        Else
            MsgBox "No existe el folio"
        End If
    End If
End Sub

'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. 
'.[Avísame cualquier duda