VB6.0 以前

    ' 必要な変数を宣言する
    Dim stTarget As String
    stTarget = "ABCDEDCBA"

    ' 末尾から 'D' を検索し、見つかった位置を取得する
    Dim iFind1 As Integer
    iFind1 = InStrRev(stTarget, "D")

    ' 5 文字目から "CDE" を先頭に向かって検索し、見つかった位置を取得する
    Dim iFind2 As Integer
    iFind2 = InStrRev(stTarget, "CDE", 5)

    ' すべての結果を表示する
    Call MsgBox( _
        "iFind1 = " & CStr(iFind1) & vbNewLine & _
        "iFind2 = " & CStr(iFind2) _
    )