VB6.0 以前

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

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

    ' 4 文字目から 'C' を検索し、見つかった位置を取得する
    Dim iFind2 As Integer
    iFind2 = InStr(4, stTarget, "C")

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