SoloCodigo

En un textbox quiero que si ponen AX y despues lo que sea osea Ax1700 que diga tal cosa en un label y si se one axda que siga otra
yo tenia esto

 If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2) = "x" Then
lblproci.Caption = "Athlon XP Palomino"
End If
 If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2) = "x" And Mid(txtstepp.Text, 3) = "d" And Mid(txtstepp.Text, 4) = "a" Then
lblproci.Caption = "Athlon XP Tbred"
End If

pero no funciona cuando pongo axda y sin la parte del axda del if hasta el final si pongo axs no lo pescam no sale palomino.... como lo hago?  

El ejemplo que te da pacegar es válido con una salvedad: que se te ocurra escribir en el textbox con mayúsculas... con esto debería de servir:

Código: Text

1.  
2. If LCase(Left(txtstepp.Text, 4)) = "axda" Then
3.       lblproci.Caption = "Athlon XP Tbred"
4. elseif LCase(Left(txtstepp.Text, 2)) = "ax" then
5.       lblproci.Caption = "Athlon XP Palomino"
6. endif
7.  
8.  

Y que no te parezca mal, pero podrías esforzarte un poco para poder comprenderte mejor...

Citar

pero en los 2 si pongo axda y depeus borro la a del final sale palomino  , que hagooo

... porque quién sabe a qué te refieres cuando dices que ¿en los 2? (¿TextBox?,¿no era uno?) pones 'axda' y después borras la 'a del final'.

Suerte.