Excel VBA n番目の文字を取得する

以下のようなシーンで利用されます。

・データクリーニングで、特定の位置の文字を抽出する。

・コード解析で、特定の位置の文字が意味を持つ。

・ユーザー入力の検証で、特定の位置の文字を確認する。

Option Explicit

Sub GetNthCharacter()
    Dim inputString As String
    Dim position As Integer
    Dim nthCharacter As String
    
    ' 入力文字列を設定
    inputString = "Hello, World!"
    
    ' 取得したい位置を設定 (例: 8番目の文字)
    position = 8
    
    ' Mid関数を使用してn番目の文字を取得
    nthCharacter = Mid(inputString, position, 1)
    
    ' 結果を表示
    MsgBox position & "番目の文字は " & nthCharacter
End Sub