诚求一个Type下的换行输出问题

Question

代码如下：
 Type Liuliangshuchu
  X As String * 12
  Y As String * 11
  H As String * 5
 End TypeDim LLSC As Liuliangshuchu
Open "d:\1.txt" For Random As #6 Len = Len(LLSC)For i = 0 To N1 - 1
 LLSC.X = Str(BCount(Val(d(6 + k1 * i, 0)), Val(d(6 + k1 * i, 1)), 111)) & " "
 LLSC.Y = Str(LCount(Val(d(6 + k1 * i, 0)), Val(d(6 + k1 * i, 1)), 111)) & " "
 LLSC.H = Str((Val(d(4 + k1 * i, 8)) + Val(d(4 + k1 * i, 9)) + Val(d(4 + k1 * i, 10)) + Val(d(4 + k1 * i, 11))) / 4) & vbCrLf 'Chr(13) & Chr(10)
 Put #6, i + 1, LLSC
Next i
Close #6
我就是建了个Type类型，有3个元素，想让这三个元素输出到文本，要3个元素中间用" "分隔下，3个元素为一组，它后面要换行，空格可以实现，可换行怎么实现呢？在第三个元素后&chr(13)&chr(10)或者vbcrlf都不行，，，有什么办法呢？？？

Answer 1

忘了补充一点，用&chr(13)&chr(10)后，输出的文本第一行倒是换了，可后面就不会换了全连在一起，，ps:Type里把数据定义为single，输出的文本就是乱码了，这正常吗？

Answer 2

 Type Liuliangshuchu
  X As String * 12
  Y As String * 11
  H As String * 5
  ENDSIG As String * 2
 End Type程序里面将ENDSIG赋给VbCrLf