InStr関数

【目的】
VBAでInStr関数を使い、文字列から検索した文字列の位置を取得します。



【手順】
１．「標準モジュールの作成方法」の手順で、「MainModule」とい標準モジュールを作成。
２．「MainModule」を以下の様に入力。

Option Explicit

Sub main()
    Dim position As Variant
    Dim searchString As String
    
    searchString = "b"
    position = InStr(1, "abcde", searchString)
    
    If IsNull(position) = True Then
        Debug.Print ("Nullが帰ってきました。")
    ElseIf IsNull(position) = False And position > 0 Then
        Debug.Print (searchString & "は" & position & "番目です。")
    Else
        Debug.Print (searchString & "は見つかりませんでした。")
    End If
    
    
    searchString = "f"
    position = InStr(1, "abcde", searchString)
    
    If IsNull(position) = True Then
        Debug.Print ("Nullが帰ってきました。")
    ElseIf IsNull(position) = False And position > 0 Then
        Debug.Print (searchString & "は" & position & "番目です。")
    Else
        Debug.Print (searchString & "は見つかりませんでした。")
    End If
    
    
    searchString = "g"
    position = InStr(1, Null, searchString)
    
    If IsNull(position) = True Then
        Debug.Print ("Nullが帰ってきました。")
    ElseIf IsNull(position) = False And position > 0 Then
        Debug.Print (searchString & "は" & position & "番目です。")
    Else
        Debug.Print (searchString & "は見つかりませんでした。")
    End If
    
    
    position = InStr(1, "abcde", Null)
    
    If IsNull(position) = True Then
        Debug.Print ("Nullが帰ってきました。")
    ElseIf IsNull(position) = False And position > 0 Then
        Debug.Print (searchString & "は" & position & "番目です。")
    Else
        Debug.Print (searchString & "は見つかりませんでした。")
    End If
End Sub

３．「関数を実行する方法」の手順で、main関数を実行。
４．イミディエイトウィンドウが表示されない場合は、「イミディエイトウィンドウの表示方法」でイミディエイトウィンドウを表示させます。
５．以下の様に、イミディエイトウィンドウに以下の様に、出力されれば成功です。

以上です。