አረፍተ ነገር ማስቆሚያ

Stop

Sub ExampleStop
Dim iVar As Single
    iVar = 36
    Stop
    MsgBox Sqr(iVar)
End Sub