今天才发现，这段代码怎么会漏掉最后一个数据

Question

上次求助过，关于为文本框内的数据添加行号的问题，今天发现，这段代码会漏掉最后一行数据，不知道是怎么回事
http://zhidao.baidu.com/question/365317670.html?an=0&si=1
------------------------------------
Private Sub Command1_Click()
Dim msTR As String
Dim N As Integer
Dim I As Integer
Dim llsTR As String
Dim hh As Integer

hh = 0
llsTR = ""
msTR = Text1.Text
N = InStr(msTR, vbCrLf)
Do While N <> 0
hh = hh + 1
llsTR = llsTR & CStr(hh) & "." & Left(msTR, N + 1)
msTR = Right(msTR, Len(msTR) - N - 1)
N = InStr(msTR, vbCrLf)
Loop
Text1.Text = llsTR
End Sub

Answer 1

哦,对不起!原来那个,规定,最后一行要加个回车.
现在修改一下,就可以了:
Private Sub Command1_Click()
Dim msTR As String
Dim N As Integer
Dim I As Integer
Dim llsTR As String
Dim hh As Integer

hh = 0
llsTR = ""
msTR = Text1.Text
N = InStr(msTR, vbCrLf)
Do While N <> 0
hh = hh + 1
llsTR = llsTR & CStr(hh) & "." & Left(msTR, N + 1)
msTR = Right(msTR, Len(msTR) - N - 1)
N = InStr(msTR, vbCrLf)
Loop
If msTR <> "" Then
hh = hh + 1
llsTR = llsTR & CStr(hh) & "." & Left(msTR, N + 1)
End If
Text1.Text = llsTR
End Sub

追问

谢谢你为我解答，我试了下这段代码，为什么加了行号后原来的最后一行数据却只能显示一个字了呢

来自：求助得到的回答