msgbox al comparar textbox

[rapbyone]

Amigos tengo el siguiente código que me muestra un mensaje cuando los valores de dos textbox son diferentes:

Código [Seleccionar] Expandir

  If Val(Text1.Text) <> Val(Text2.Text) Then
    MsgBox ("Hay una nueva actualizacion...")
    End If


El problema es que solo funciona con números enteros, lo que quiero es que funcione también con texto, por ejemplo:

Text1 = version 2.1
Text2 = version 2.2

y que aparezca el mensaje
gracias amigos 

[Cj2009z]

podrias intentar con esto:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    If Val(Text1.Text) <> Val(Text2.Text) Then ' para enteros
        MsgBox "nueva version"
    ElseIf (Text1.Text) <> (Text2.Text) Then 'para texto
        MsgBox "nueva versión"
    else
        msgbox "no hay nada"
    End If
End Sub




[Mad Antrax]

Código (vb) [Seleccionar] Expandir


If Text1.Text <> Text2.Text Then
    MsgBox ("Hay una nueva actualizacion...")
End If


[elezekiel]

Quiero agregar el Option compare text para evadir problemas de distincion de minusculas o mayusculas (en el caso que necesites usarlo)

el Code de madantrax es correcto pero si hubiera diferencia de mayuscula y el option compare no estuviera te lo tomaria como distinto a pesar de la igualdad!

saludd!!!

[Mad Antrax]

Código (vb) [Seleccionar] Expandir


If lcase(Text1.Text) <> lcase(Text2.Text) Then
   MsgBox ("Hay una nueva actualizacion...")
End If