实现文本查找功能-Instr函数使用技巧-找不到结果

  '编写一个查找函数
      Private Sub FindText(ByVal start_at As Integer)
      Dim pos As Integer
      Dim i As Integer
      Dim target As String
      '获取用户输入的要查找的字符串
      target = Me.text2
      text1.SetFocus
      pos = InStr(start_at, target, text1.Text)
      If pos > 0 Then
           Me.text2.SetFocus
            '找到了匹配字符串
            TargetPosition = pos
            i = Len(Me.text1)
            Me.text2.SelStart = TargetPosition - 1
            '选中找到的字符串
            Me.text2.SelLength = i
      Else '没有找到匹配的字符串
      MsgBox "没找到！"
      'text1.SetFocus
      End If
      End Sub