Module Module1
    Sub Main()
        CauseStackOverflow()
    End Sub

    Sub CauseStackOverflow()
        ' No base case, this will keep calling itself infinitely
        CauseStackOverflow()
    End Sub
End Module