🚀 go-pugleaf

Hello everyone.
    What I 'm trying to do is read in one word, one number(of any length.
2,3,4+characters long), one character.
I kind of have the one character down, but the one word and one number is
baffling me.
I 'm using an RTB to store the information from the file, and at the end of
each line, there's the lf/cr codes(10/13 respectively).

I know there "has" to be a simpler way of doing this. I've tried Mid/Instr,
but I can't get anywhere with it cuz the RTB is multilined.

Any help would be greatly appreciated.

TIA,
Bobby


Here are my functions:
Function fread_word(StartPos As Integer, strReturn As String)
    Dim strTemp As String
    strReturn = ""
    rtfText.SelStart = StartPos
    rtfText.SelLength = 1
    If Asc(rtfText.SelText) = 10 Or Asc(rtfText.SelText) = 13 Then
        Do While Asc(rtfText.SelText) = 10 Or Asc(rtfText.SelText) = 13
            StartPos = StartPos + 1
            rtfText.SelStart = StartPos
            rtfText.SelLength = 1
        Loop
    End If
    Do While Not rtfText.SelText = " "
        strReturn = strReturn & rtfText.SelText
        StartPos = StartPos + 1
        rtfText.SelStart = StartPos
        rtfText.SelLength = 1
    Loop
    If rtfText.SelText = " " Then
        StartPos = StartPos + 1
    End If
End Function

Function fread_char(StartPos As Integer, strReturn As String)

    rtfText.SelStart = StartPos
    rtfText.SelLength = 1
    Do While Asc(rtfText.SelText) = 10 Or Asc(rtfText.SelText) = 13
        StartPos = StartPos + 1
        rtfText.SelStart = StartPos
        rtfText.SelLength = 1
    Loop
    rtfText.SelStart = StartPos
    rtfText.SelLength = 1
    strReturn = rtfText.SelText
    StartPos = StartPos + 1
End Function

Function fread_number(StartPos As Integer, intReturn As Integer)
    Dim FindEndPos As Integer
    Dim strTemp As String
    Call fread_char(StartPos, strTemp)
    FindEndPos = StartPos + 1
    rtfText.SelStart = StartPos
    rtfText.SelLength = 1
    Do While IsNumeric(strTemp)
        Call fread_char(StartPos, strTemp)
        If IsNumeric(strTemp) Then
            intReturn = intReturn & Str(strTemp)
        End If
    Loop
'    StartPos = StartPos - 1
End Function