You can't specify the stationery with VBA like you do in Options, but you
can parse the stationery's .html file to include it in the .HTMLBody
property:
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\testfile.htm", ForReading)
strText = ts.ReadAll
objMsg.HTMLBody = strText