Visual Basic - Encontrar un caracter especial en un texto

Private Type SOLVERCAD

 PREG As String

 RESP As String

End Type

Private Function BUSCAR(CADENA As String) As SOLVERCAD

Dim STAR As Integer, FINISH As Integer, TOTAL As Integer

STAR = InStr(CADENA, "¿"): FINISH = InStr(CADENA, "?")

TOTAL = (FINISH - STAR) + 1

BUSCAR.PREG = Mid(CADENA, STAR, TOTAL)

BUSCAR.RESP = Right(CADENA, Len(CADENA) - FINISH)

End Function

Private Sub Command1_Click()

MsgBox BUSCAR(Text1.Text).PREG

MsgBox BUSCAR(Text1.Text).RESP

End Sub

Dim RNC As Recordset

Private Function BUSCAR(CADENA As String, VSTAR As Byte) As Byte

Dim STAR As Integer, FINISH As Integer, LASTCAD As Integer

    STAR = InStr(VSTAR, CADENA, "¿")

    FINISH = InStr(VSTAR, CADENA, "?")

    LASTCAD = InStr(VSTAR + 1, CADENA, "¿")

    RNC.AddNew

    If LASTCAD <> 0 Then

        RNC!pregunta = Mid(CADENA, STAR, (FINISH - STAR) + 1)

        RNC!respuesta = Trim(Mid(CADENA, FINISH + 1, (LASTCAD - FINISH)) - 1)

        BUSCAR = LASTCAD

    Else

        RNC!pregunta = Mid(CADENA, STAR, (FINISH - STAR) + 1)

        RNC!respuesta = Trim(Mid(CADENA, FINISH + 1, (Len(CADENA) - FINISH)))

        BUSCAR = Len(CADENA)

    End If

    RNC.Update

End Function

 Private Sub Command1_Click()

    Dim TOTAL As Integer, POS As Byte

    Me.Enabled = False

    If Len(Text1.Text) <> 0 Then

        TOTAL = Len(Text1.Text): POS = 1

        Do While POS < TOTAL

            POS = BUSCAR(Text1.Text, POS)

        Loop

        'Agregar el codigo para visualizar el recordset ejem DBGRID

    End If

    Me.Enabled = True

End Sub

Private Sub Form_Load()

    Set RNC = New Recordset

    RNC.Fields.Append "Pregunta", adBSTR

    RNC.Fields.Append "Respuesta", adBSTR

    RNC.Open

End Sub

//Ahora se emplea un Recordset desconectado para almacenar las preguntas y las respuestas

if RNC.state <> 0 then

     RNC.CLOSE

end if