MS Access VBA替换字符串中指定范围

Function ReplaceStringInRange(inputString As String, startIdx As Integer, endIdx As Integer, replacement As String) As String
    Dim part1 As String
    Dim part2 As String
    Dim result As String
    
    ' 截取指定范围之前的部分
    part1 = Left(inputString, startIdx - 1)
    
    ' 截取指定范围之后的部分
    part2 = Right(inputString, Len(inputString) - endIdx)
    
    ' 构建替换后的字符串
    result = part1 & replacement & part2
    
    ' 返回替换后的字符串
    ReplaceStringInRange = result
End Function

Sub ReplaceString()
    Dim originalString As String
    Dim replacedString As String
    
    originalString = "Hello World!"
    
    ' 替换字符串中第2到第6个字符
    replacedString = ReplaceStringInRange(originalString, 2, 6, "12345")
    
    ' 输出替换后的字符串
    Debug.Print replacedString
End Sub