'For Exit Sub (sai fora do Programa ao achar um multiplo de 5)

Sub laco_forExitSub()
'For Exit Sub (sai fora do Programa 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 Sub
    Next
    MsgBox "Ola¨"
End Sub