Dim a, b, c, s As Integer
a = Text2.Text
b = Text3.Text
c = Text4.Text
If a > b Then
s = a
If a > c Then
s = a
Else
s = c
End If
Else
s = b
If b > c Then
s = b
Else
s = c
End If
End If
Print s
dim a as integer
a=val(text1.text)
if a
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
If a < b Then a = b
If a < c Then a = c
MsgBox a