[RESOLVED] Recordset Counting problem

[intercepter]

And this is the resulting sub that works now:

Private Sub MoreVer()
Dim iHnd As Long
     iHnd = getPalSubForm(WindowClass, Combo1.Text, RoomOutboundTextBoxClass, SendTxtIndex)
     iHnd = SendTextHnd
Dim sr As SearchResult
Set sr = colSearches(Text1.Text)
Dim tempCount As String
Dim u$
If colSearches.Count = 0 Then
RTB5 = Text1.Text & ": You Dont Have Any More Search Results To Display."
RTB5.SelLength = Len(RTB5.Text)

With RTB5
     .SelBold = True
     .SelFontSize = 10
     .SelColor = RGB(101, 0, 192)
End With

Call SendMessageByString(iHnd, WM_SETTEXT, 0&, RTB5)
Call SendMessage(iHnd, WM_KEYDOWN, 13, 0)

Exit Sub
Else
End If
 
 tempCount = sr.LinesLeft

  u$ = Text1.Text
  If u$ <> "" Then SendMore u$, 10


RTB5 = Text1.Text & " Your Keyword or Phrase Search Results Are:  " & tempCount & "  Verse(s)  " & RichTextBox1.Text & " Type $more for more results, "
RTB5.SelLength = Len(RTB5.Text)

With RTB5
     .SelBold = True
     .SelFontSize = 8
     .SelColor = RGB(101, 0, 192)
End With

Call SendMessageByString(iHnd, WM_SETTEXT, 0&, RTB5)
Call SendMessage(iHnd, WM_KEYDOWN, 13, 0)

RichTextBox1.Text = ""

End Sub