Офисные приложения раньше времени .NET Streams.Приложения работают только с физическими файлами.Вы должны скопировать ресурс в физический файл или использовать сторонний компонент.
Dim sPath As String = My.Computer.FileSystem.GetTempFileName
My.Computer.FileSystem.WriteAllBytes(sPath, My.Resources.us, False)