关于VBCrlf的问题

Question

请教各们朋友:VB中把值: "123456 789" & vbcrlf & "789521" & vbcrlf & "##" 赋给RichTextBox后,现在要取得RichTextBox.text中的第一VBCrlf的位置,语句怎么写?

Answer 1

Dim s
Private Sub Form_Load()
   RichTextBox1.Text = "123456 789" & vbCrLf & "789521" & vbCrLf & "##"
   s = Split(RichTextBox1.Text, vbNewLine)
   MsgBox "µÚÒ»¸öVbCrLfµÄλÖÃÔÚµÚ " & CStr(Len(s(0)) + 1) & " Î»"
End Sub

Answer 2

晕了,怎么一复制就有乱码Dim s 
Private Sub Form_Load() 
   RichTextBox1.Text = "123456 789" & vbCrLf & "789521" & vbCrLf & "##" 
   s = Split(RichTextBox1.Text, vbNewLine) 
   MsgBox "第一个VbCrLf的位置在第 " & CStr(Len(s(0)) + 1) & " 位" 
End Sub