Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

    Public Sub Main()

Dim str1 As String, i As Integer

str1 = "Hello"

  For i = 1 To Len(str1)

   Text1.Text = Text1.Text & Asc(Mid$(str1, i, 1))

  Next i

    End Sub

End Module