VB6.0怎的把16BIT数据转为ASCII码

VB6.0怎样把16BIT数据转为ASCII码
各位前辈请教一下VB6中怎样把16Bit数据转为ASCII码？如下图所示

D12500个16Bit数据，值为16717

上图为转为ASCII码，值变为MA
请教给位大哥怎样用VB6.0写出来啊？？
------解决方案--------------------

引用:

引用:
Dim a(0 To 5) As Byte
a(0) = &H71
a(1) = &H4D
a(2) = &H32
a(3) = &H42
a(4) = &H39
a(5) = &H45
Debug.Print StrConv(a, vb……

就是一开始不知道这些值是多少，都是从D12500这个地址取得的值，此值时刻都是在变的 

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Command1_Click()

Dim Bin As Integer, tmp(0 To 1) As Byte, s As String

Bin = 16717

CopyMemory tmp(0), Bin, 2

s = StrConv(tmp, vbUnicode)

Debug.Print s

End Sub