Sub UpdateSubject()
Dim SaveCode As String
Dim KeyWord As String
Dim objItem As Object
Dim strSubject As String
    KeyWord = "TSD"
    SaveCode = TextFile_PullData
    If SaveCode = "" Then Exit Sub
    Set objItem = GetCurrentItem()
    strSubject = objItem.Subject
    objItem.Subject = "[" & KeyWord & "=" & SaveCode & "] " & strSubject
    Set objItem = Nothing
End Sub