Visual Basic

Module ExampleModule

    Private Sub ExampleSub()
        Dim MyExampleObject As New Example
        MyExampleObject.MyVariable = "Example"

        'some loop here
        MyFunctionToBeCalledAboutEightTimes(MyExampleObject)
        'next loop
    End Sub

    Function MyFunctionToBeCalledAboutEightTimes(ByVal MyExample As Example) As Integer
        If MyExample.MyVariable = "Example" Then
            Return 0
        Else
            Return 1
        End If
    End Function

End Module

Public Class Example

    Private _MyVariable As String
    Public Property MyVariable() As String
        Get
            Return _MyVariable
        End Get
        Set(ByVal value As String)
            _MyVariable = value
        End Set
    End Property

End Class

Dim sValue As String

        Dim i As Integer = 0
        Do While signString.Length > 0


            'first I take each character using substring

            sValue = signString.Substring(0, 1).ToString()

            'then convert character into ascii.        

            sValue = Strings.Asc(sValue).ToString

            'then convert ascii value into Hex Format 

            sValue = Conversion.Hex(sValue)

            'after converting remove the character. 

            buffer(i) = Byte.Parse(sValue, Globalization.NumberStyles.AllowHexSpecifier)
            signString = signString.Substring(1, signString.Length - 1)
            i = i + 1

        Loop