Sub cut_subject_prefix()
    Dim MAPI_Outlook
    Dim Calendar_Folder
    Dim Item
    Dim Subject As String
    Dim i As Integer
    Dim digit As String
    Set MAPI_Outlook = Outlook.GetNamespace("MAPI")
    Set Calendar_Folder = MAPI_Outlook.GetDefaultFolder(OlDefaultFolders.olFolderCalendar)
    MsgBox Calendar_Folder
    For Each Item In Calendar_Folder.Items
        Subject = Item.Subject
        i = InStr(Subject, ":")
        If i <> 0 Then
            If Len(Subject) > 15 Then
                Subject = Trim(Mid(Subject, i + 1))
                digit = Left(Subject, 1)
                Do Until InStr("0123456789.", digit) = 0
                    Subject = Mid(Subject, 2)
                    digit = Left(Subject, 1)
                Loop
                Subject = Trim(Subject)
                If Left(Subject, 1) = "-" Then
                    Subject = Trim(Mid(Subject, 2))
                End If
                
                If Item.Body = "" Then
                    Item.Body = Item.Subject
                    
                Item.Subject = Subject
            End If
        End If
    Next
End Sub