örnek olarak iki sayiya a-b olarak ele alirsak asagidaki gibi meela farkli ...c.d.(9.10) Ssayi adedi,vs cogaltilabilir,
Dim a As Byte
Dim b As Byte
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
If a = b Then
MsgBox("iki sayi esittir")
End If
If a > b Then
MsgBox("birinci say ikinciden byktr")
End If
If a < b Then
MsgBox("ikinci say birinciden byktr")
End If