程序编译后出现了问题

程序语句如下:
sendtext winhwnd1, Text3.text   'sendtext是一个自定义函数,winhwnd1是其他程序文字编辑框的句柄,text3是自身程序的textboxsendtext 函数如下:Private Sub sendtext(hwnd As Long, text As String) '发送字符函数
Dim str As String, data() As Byte, i As Long
str = text
i = 0
data = StrConv(str, vbFromUnicode)
While i <= UBound(data)  If data(i) < 128 Then
    SendMessage hwnd, &H102, data(i), 0&
    i = i + 1
  Else
    SendMessage hwnd, &H102, data(i), 0&
    SendMessage hwnd, &H102, data(i + 1), 0&
    i = i + 2
  End If
Wend
End Sub以上语句调试时没有出现什么问题,但编译后使用时却发现,当text3(自身程序的textbox)内容为多行文本时,字符发送给其他程序后,其他程序的文本框接收到的并不是多行内容,而是单行内容,但字符数量并没有少,也就是说它自动将多行转成单行,请问这是咱回事,怎么解决?
多谢了!