For one thing you have an input variable outside your paranthesis. Try something more like:
Private Sub Command30_Click()
Dim iResponse As Integer
iResponse = MsgBox("Would You Like To Attach a Material Sheet?", vbYesNoCancel)
If iResponse = vbYes Then...