我的程序里的一个查找函数怎么不能实现其功能？
这是一个 查找 在回车符 后 的一个字符是字母的话，就返回 这个回车符在字符位置（在字符串中的排位）与形参的差
但是总是不能实现 请大家再帮帮忙

可能就是 函数中那两个 if 语句 有问题

Dim StrAll As String
Private Sub Form_click()
StrAll = "abcd" & Chr(13) & "123" & Chr(13) & "efgh"
Print FindWord(2) ' 调用函数 把形参 赋为 2
End Sub

Function FindWord(I As Long) As Long
Dim U As Long, AscA As Integer
FindWord = 0
For U = I To N
If Chr(13) = Mid(StrAll, U, 1) Then ' 找到回车的话 要是在其下一个字符是字母的话 返回函数值
AscA = Asc(Mid(StrAll, U + 1, 1)) '把回车 后面的字符 的ASCII码赋给 AscA
If AscA >= 97 And AscA <= 122 Or AscA >= 65 And AscA <= 90 Then
FindWord = U - I
Exit For
End If
End If
Next U
If FindWord = 0 Then MsgBox "查找完毕", vbOKOnly, "提示" '查找完毕
End Function

[此贴子已经被作者于2006-10-17 21:29:37编辑过]

是呀，但是我不知道找每一行的开头 只有用这种 死办法
请多多指教

指出我的那个 代码的错误的地方 ，让偶看看 到底死在哪个地方 下次 就不要犯同样的错误了

[此贴子已经被作者于2006-10-17 22:03:47编辑过]