Public Function DectoAscii(ByVal RX2 As String) As String
Dim num, Value As String
RX2 = "010333ff0001bb7e"
For Y = 1 To Len(RX2)
num = Mid(RX2, Y, 2)
Value = Value & Chr(Val("&H" & num))
Y = Y + 1
Next Y
DectoAscii = Value
send.Text = DectoAscii
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim _Array() As String = {54, 68, 61, 69, 63, 72, 65, 61, 74, 65}
Me.Text = HexAsciiToChr(_Array)
End Sub
Public Function HexAsciiToChr(ByVal _Array() As String) As String
HexAsciiToChr = Nothing
For i = 0 To _Array.Length - 1
HexAsciiToChr &= Chr(Convert.ToInt32(_Array(i), 16))
Next
Return HexAsciiToChr
End Function
Load balance : Server 00
