I take it that you found a post which describes the same problem as
you are currently experiencing, and copied it here, without adding any
of your own text, but then wrote a short description of your own and
posted it in a separate thread. That often happens when people are
first learning how to use forums. When you want to add a new post
to an existing thread, first go into that thread, then use a Reply box in
that thread, like I’m doing right now.

The Grub screen is indeed part of a Linux operating system.

Most likely you just need to learn how to use Grub.

Did you have a working Windows system?

Did you then try to install a Linux-based operating system, or run
a Linux-based system from a removeable disk or memory card?

Do you want to be able to access data that is on your computer,
or do you just want to wipe everything out and start over with a
fresh install of your operating system?

If you had a working Windows system, and want to recover data,
then you may need to check for malware. Others here will guide
you through doing that.

If you just want to wipe everything out and start over, do you have
the operating system you want on removeable media, or is it stored
(by the computer’s manufacturer) on a partition on the computer’s
hard drive? Which operating system do you want to install?

— Jeff, in Minneapolis

That particular error you’re getting means 98 install isn’t finding a cdrom. That’s because you likely have a SATA cd/dvd drive. The driver it’s loading is for IDE/atapi cdroms. Your PC can boot the 98 cd because the bios recognizes the sata drive but 98 doesn’t.

It’s also likely you have a sata hard drive which 98 won’t see either.

You have 2 practical choices–either install 98 in a VM setting within windows 7 or get an older PC from the P-III era and install 98 on that one.

Sub GetTableText()
 
Dim mySlide As Object
Dim oPA As Object
Dim strTemplate As String
Dim TableText As String

strTemplate = "C:\Template.pptx"

Set oPA = CreateObject("Powerpoint.application")

oPA.Presentations.Open strTemplate, WithWindow:=msoFalse

Set mySlide = oPA.Presentations(1).Slides

With oPA.Presentations(1).Slides(mySlide.Count).Shapes(1).Table

For i = 1 To .Rows.Count
Next i

End With

TableText = oPA.Presentations(1).Slides(mySlide.Count).Shapes(1).Table.Cell(i - 1, 2).Shape.TextFrame.TextRange

Debug.Print TableText

oPA.Presentations(1).Close

End Sub

message edited by AlwaysWillingToLearn