Test Foro de elhacker.net SMF 2.1

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

  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  ;D

podrias intentar con esto:


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





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


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!!!


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