求助VB与串口问题

采用VB发送接收ascii码！我的接收怎么是乱码？
VB code:

Private Sub com_init()

With MSComm1

.CommPort = 1 'COM1

.Settings = "9600, E, 7, 1"

.InputMode = comInputModeBinary

.InputLen = 14

.InBufferCount = 0

.InBufferSize = 50

.OutBufferCount = 0

.OutBufferSize = 50

.RThreshold = 14

.SThreshold = 1

.PortOpen = True

If MSComm1.PortOpen = False Then MsgBox "请先设置串口", 16, "提示"

End With

If Err Then '错误处理

MsgBox "串口通信无效"

End If

End Sub

Private Sub MSComm1_OnComm()

Dim filename As String

' Dim btReceive As Variant

Select Case MSComm1.CommEvent

Case comEvReceive

btReceive = MSComm1.Input

Picture1.Print btReceive(0); btReceive(1); btReceive(2); btReceive(3); btReceive(4); btReceive(5);

Picture1.Print btReceive(6); btReceive(7); btReceive(8); btReceive(9); btReceive(10); btReceive(11);

Picture1.Print btReceive(12);