No entiendo bien la consulta pero,
 si haces esta comparacion

If TXTprecio = TXTprecio Then

en evento change siempre va a ingresar pero comparar el mismo objeto???

Creo que necesitas algo así.

Const Comparar = "HOLA"

Private Sub Text1_Change()
If UCase(Text1.Text) = Comparar Then
    MsgBox "Tarea realizada: " & Text1.Text
End If
End Sub

Hola a todos,

Soy nuevo aquí, quisiera ver si me pueden ayudar como ejecutar un JAR en D.O.S y enviar varios parámetros tengo un arreglo dentro de mi JAR que al parecer me esta dando problemas.