NP. Make sure to update your system to always use option explicit. That makes things much easier to debug. This should do what you want. Note I changed objSubject to strSubject as it makes it easier to see the data type.
[VBA]Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim strFile As String
Dim strFolderpath As String
Dim strFileName As String
Dim strSubject As String



strSubject = objMsg.subject
if ucase(strSubject) like "*BLACK*" then
strFolderPath = "C:\Black\"
elseif ucase(strSubject) like "*BLUE*" then
strFolderPath = "C:\Blue\"
elseif ucase(strSubject) like "*RED*" then
strFolderPath = "C:\Red\"
else strFolderPath = "C:\Default\"
end if
strFileName = strSubject & ".pdf"
strFile = strFolderpath & strFileName

For Each objAtt In itm.Attachments

objAtt.SaveAsFile strFile

Set objAtt = Nothing

Next

End Sub [/VBA]