【VBA】文字列から特定のキーワードを切り取った文字列を返すコード

Function ExtractStringAfterKeyword(originalString As String, keyword As String) As String
    Dim position As Long
    
    ' キーワードの位置を見つける
    position = InStr(originalString, keyword)
    
    If position > 0 Then
        ' キーワード以降の文字列を新しい変数に格納
        ' キーワードの長さも考慮して、その部分から抽出
        ExtractStringAfterKeyword = Mid(originalString, position + Len(keyword))
    Else
        ' キーワードが見つからない場合は空の文字列を返す
        ExtractStringAfterKeyword = ""
    End If
End Function

Sub TestExtractStringAfterKeyword()
    Dim result As String
    result = ExtractStringAfterKeyword("会議は日時： 2024年5月14日 15:00に設定されました。", "日時： ")
    MsgBox result  ' この場合、"2024年5月14日 15:00に設定されました。" が表示されます。
End Sub

If InStr("Hello World", "World") <> 0 Then

Dim position As Integer
position = InStr("Hello World", "World")