Thank you for your help.
The error appears here:
If ((Rsp.Int8Value(0) <> &h80) Or (Rsp.Int8Value(1) <> &h01)) Then
return "error h80" // returns here
End If
I presume that only ReinerSCT has an answer to that. But I will keep everyone updated here as I make progress.