-
-Imports Microsoft.VisualBasic \r
-Imports System\r
-Public Class TestClass \r
- Public Function Test() As Double\r
- 'Begin Code\r
- Dim a As String = ""\r
- Try\r
- Dim d As double = AscW (a)\r
- Throw New Exception ("#AscW01")\r
- Catch e As Exception\r
- If (e.GetType ().ToString ()) <> "System.ArgumentException" Then\r
- Throw New Exception ("#AscW01: Expected System.ArgumentException but got " + e.GetType ().ToString ())\r
- End If\r
- End Try\r
- 'End Code\r
- End Function\r
-End Class\r
+Imports Microsoft.VisualBasic
+Imports System
+Public Class TestClass
+ Public Function Test() As Double
+ 'Begin Code
+ Dim a As String = ""
+ Try
+ Dim d As double = AscW (a)
+ Throw New Exception ("#AscW01")
+ Catch e As Exception
+ If (e.GetType ().ToString ()) <> "System.ArgumentException" Then
+ Throw New Exception ("#AscW01: Expected System.ArgumentException but got " + e.GetType ().ToString ())
+ End If
+ End Try
+ 'End Code
+ End Function
+End Class