Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim x As String = "JESUS NEVER FAILS"
        Dim x2 As String
        Dim Z3 As String

        For i As Integer = 0 To x.Length - 1
            Dim x1 As String = Asc(x.Substring(i, 1))
            x2 = x2 & x1
        Next
        Response.Write(" Ascii Code : " + x2)
        Dim z1 As String = x2
        For i As Integer = 0 To z1.Length - 1 Step 2
            Dim z2 As String = Chr(z1.Substring(i, 2))
            Z3 = Z3 & z2
        Next
        Response.Write(" Character : " + Z3)
    End Sub