VBA Excel在字符串的第二个字符后插入符号

Sub InsertSymbolAfterSecondCharacter()
    Dim originalString As String
    Dim symbol As String
    Dim firstPart As String
    Dim secondPart As String
    Dim finalString As String
    
    ' 原始字符串
    originalString = "example"
    
    ' 要插入的符号
    symbol = "-"
    
    ' 获取前半部分和后半部分
    firstPart = Left(originalString, 1)
    secondPart = Mid(originalString, 2)
    
    ' 将符号插入前半部分的末尾
    firstPart = firstPart & symbol
    
    ' 连接前半部分和后半部分
    finalString = firstPart & secondPart
    
    ' 输出结果
    MsgBox finalString
End Sub