Sub 指定単語が何文字目にあるか調べる()

    調査対象 = Range("A1")
    
    指定単語 = "あ"
    
    何文字目 = InStr(調査対象, 指定単語)
    
    MsgBox 何文字目
    
End Sub