Sure - all you need to do is create an Outlook Selection object and loop through it instead of the entire folder. I haven't tested it, but the modifications below should do what you want:

[vba]
'************
'Dim the Outlook.Selection object
Dim oSel as Outlook.Selection
'***********************[/vba]

.
[vba]
Set oFldrSbSbSb = oFldrSbSb.Folders("Weekend Asking")
'*******************
'Begin changes
'Set the oSel object equal to the selection collection in the folder
Set oSel = oFldrSBSBSB.Selection

'Check to see if a selection was made
If oSel.Count > 0 Then

For Each oSel In oSel.Items
Set oMessage = oSel.Item
With oMessage.Attachments
iAttachCnt = .Count
If iAttachCnt > 0 Then
For iCtr = 1 To iAttachCnt
.Item(iCtr).SaveAsFile sPathName _
& .Item(iCtr).FileName
Next iCtr
End If
End With
DoEvents

Next oSel

Else
'If no selection made
Msgbox "No selection was made"
End if
'***********************
'End changes[/vba]