Erro No Vb 6.0

[Guest Josmar (unimed Guarapuava)]

ola pessoal,

Estou fazendo essa programinha, para servir de base futuramente, e verifiquei pois faz algum tempo que n uso, mas n encontrei erro nenhum, alguém pod me dizer se é eu que estou errado? segue o codigo para analise.

Private Sub calcular_Click()

Dim intx As Integer

Dim inty As Integer

Dim intz As Integer

intx = txtx.Text

inty = txty.Text

intz = txtz.Text

If (x > (y + z)) Or (y > (x + z)) Or (z > (x + y)) Then

txtResultado.Text = "não é Triangulo"

Else

If (x = y) And (y = z) Then

txtResultado.Text = "Equilátero"

Else

If (x = y) Or (y = z) Or (z = x) Then

txtResultado.Text = "Isóceles"

Else

txtResultado.Text = "Escaleno"

End If

End If

End If

End Sub

[Denis_Rave]

Acho que o problema está nas variáveis

Primeiro você fez essa declaração:

Dim intx As Integer
Dim inty As Integer
Dim intz As Integer

Depois você usou as variáveis assim:

If (x > (y + z)) Or (y > (x + z)) Or (z > (x + y)) Then

Ao invés de você usar

If (intx > (inty + intz)) Or (inty > (intx + intz)) Or (intz > (intx + inty))

Abraços