Dim lblTxt As String
If CDbl(TextBox3.Value) > CDbl(TextBox4.Value) Then
lblTxt = TextBox1.Value
Else
lblTxt = "Emsalin ulaştığı derece/kademe daha düşük olduğu için, emsal esas alınarak ilgilinin derece/kademesi (" & TextBox2.Value & ") olarak tespit edilmiştir"
End If
TextBox5.Value = lblTxt
aşağıdaki kodu dener misiniz?