[a.ahmed]

PHP كود :

Private Sub Command1_Click()
    Text2.Text = HexToString(Text1.Text)
End Sub 


PHP كود :

Function HexToString(ByVal v As String) As String
    Dim r As String, i As Integer, c As String
    For i = 1 To Len(v) - 1 Step 2
        c = ChrW(Val("&h" & (Mid$(v, i, 2))))
        r = r & c
    Next
    HexToString = r
End Function 


PHP كود :

Function StringToHex(ByVal v As String) As String
    Dim r As String, i As Integer, h As String
    For i = 1 To Len(v)
        h = hex(AscW((Mid$(v, i, 1))))
        r = r & IIf(Len(h) = 1, "0", "") & h
    Next
    StringToHex = r
End Function