i solved the case. the call function should be :
......
Dim ss As String
ss = HexString(s)
......