Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
Dim h As Integer
Dim i As Integer
Dim j As Integer
a = 441
b = 536
c = 78
d = 50
e = 654
f = 3
g = 85
h = 532
i = 413
j = 129
If a > b Then
Max= a
Else
Max = b
End If
If c > Max Then
Max = c
End If
If d > Max Then
Max = d
End If
If e > Max Then
Max = e
End If
If f > Max Then
Max = f
End If
If g > Max Then
Max = g
End If
If h > Max Then
Max = h
End If
If i > Max Then
Max = i
End If
If j > Max Then
Max = j
End If
Print Max
End Sub