Dim bytBuffer(255) As Byte
        Dim enc As New System.Text.UnicodeEncoding
        Dim shb As System.Runtime.Remoting.Metadata.W3cXsd2001.SoapHexBinary
 
        Dim strSuchtext As String
        Dim strSuchtextByteArray As String
 
        '...
 
        shb = New System.Runtime.Remoting.Metadata.W3cXsd2001.SoapHexBinary( _
          bytBuffer)
        Form1.txtHex.Text = shb.ToString
 
        strSuchtext = "dows"
        shb = New  System.Runtime.Remoting.Metadata.W3cXsd2001.SoapHexBinary( _
          enc.GetBytes(strSuchtext))
        strSuchtextByteArray = shb.ToString
 
        MsgBox(InStr(Form1.txtHex.Text, strSuchtextByteArray))