Dim max As double = 0
If val(sl.text) > val(sl1.text) Then
max = sl.text
Else
max = ls1.text
End If
If val(sl2.text) > max Then
max = sl2.text
msgbox(max)