' 10 numeros digitados selecionar o maior

Sub Maior10Digitado()
' 10 numeros digitados selecionar o maior
Dim num  As Integer
Dim maior As Integer
Dim i As Integer

    For i = 1 To 10
     num = CInt(InputBox("Digite um numero"))
        If (i = 1) Or (num > maior) Then
        maior = num
        End If
    Next
MsgBox "O Maior é : " & maior
End Sub