'Exit For (sai fora do Laço FOR ao achar um multiplo de 5)

Sub laco_forExitfor()

'For Exit Sub (sai fora do Laço FOR ao achar um multiplo de 5)

    Dim i As Integer

    Dim num As Integer

    num = CInt(InputBox("Digite um Valor"))

    For i = 1 To 10

        MsgBox i * num

        If num Mod 5 = 0 Then Exit For

    Next

    MsgBox "Ola¨"

End Sub