Private sub Cool()
    Try
        Dim s as String
        s = "ceci est un test"
        MessageBox.show(s)
    Catch ex as Exception
        Throw ex
    End Try
End sub