I have a macro in Microsoft Excel listed below.  I need to have it put in a
powerpoint presentation. How can I do it?   I need for each questions to be
on a different slide and for it to repeat until xxx is entered.  Any help
will be appreciated.

Sub OptionExplicit()
'
' OptionExplicit Macro
' Macro recorded 3/10/2008 by Student Financial Aid
'
Dim vName As String
Dim vAddress As String
Dim vCityStateZip As String
Dim vPhoneNumber As String
Dim vEmailAddress As String
Dim vRealEstateAgentAndCompany As String
Dim vxxx As String

vName = InputBox("Please type in your name?")
If vName = "xxx" Then
   Exit Sub
  Else
vAddress = InputBox("Please enter your address?")
vCityStateZip = InputBox("Please enter City, State and Zip?")
vPhoneNumber = InputBox("Please enter your Phone Number?")
vEmailAddress = InputBox("Please enter your Email Address?")
vRealEstateAgentAndCompany = InputBox("Please enter your Real Estate Agent
and Company?")
Worksheets("Sheet1").Range("B1") = vName
Worksheets("Sheet1").Range("B2") = vAddress
Worksheets("Sheet1").Range("B3") = vCityStateZip
Worksheets("Sheet1").Range("B4") = vPhoneNumber
Worksheets("Sheet1").Range("B5") = vEmailAddress
Worksheets("Sheet1").Range("B6") = vRealEstateAgentAndCompany

'
   Range("B1").Select
   Range("B2").Select
   Range("B3").Select
   Range("B4").Select
   Range("B5").Select
   Range("B6").Select

   
 vName = InputBox("Please type in your name?")
 vAddress = InputBox("Please enter your address?")
 vCityStateZip = InputBox("Please enter City, State and Zip?")
 vPhoneNumber = InputBox("Please enter your Phone Number?")
 vEmailAddress = InputBox("Please enter your Email Address?")
 vRealEstateAgentAndCompany = InputBox("Please enter your Real Estate Agent
and Company?")
 Worksheets("Sheet1").Range("B11") = vName
 Worksheets("Sheet1").Range("B12") = vAddress
 Worksheets("Sheet1").Range("B13") = vCityStateZip
 Worksheets("Sheet1").Range("B14") = vPhoneNumber
 Worksheets("Sheet1").Range("B15") = vEmailAddress
 Worksheets("Sheet1").Range("B16") = vRealEstateAgentAndCompany

'
   Range("B11").Select
   Range("B12").Select
   Range("B13").Select
   Range("B14").Select
   Range("B15").Select
   Range("B16").Select
   
   
   
   End If
   Application.Goto Reference:="OptionExplicit"
End Sub