No problem!
I have one more question. As you see in the below code, the shape "OK"
appears when you click on button SAVE.. and dissapears when you click on that
shape ("HideSecretButton" procedure). But it would be helpful to also have an
option to make it dissaper by itself. I tried to play with your examples'
codes, but it didn't work. Can you advise me on what procedure should I
insert (and exactly where in this code?) to make this "OK" shape stay for 2
seconds and dissapear by itself?

My current code is:

Sub PseudoKeyboard(oSh As Shape)

   Dim strShapeText As String
   strShapeText = oSh.TextFrame.TextRange.Text

   With ActivePresentation.Slides(1).Shapes("TextBox1")
       With .OLEFormat.Object
       Select Case oSh.TextFrame.TextRange.Text
       
              Case Is = "Backspace"
                ' delete the last character
                .Text = Left$(.Text, Len(.Text) - 1)
              Case Else
                .Text = .Text & strShapeText
       End Select
       End With
   End With
End Sub

Sub SaveMe()
 ' ALL ON ONE LINE:
Call WriteStringToFile("C:\Temp\Infofile.txt",
ActivePresentation.Slides(1).Shapes("TextBox1").OLEFormat.Object.Text)
' add this after writing the text to file:
ActivePresentation.Slides(1).Shapes("TextBox1").OLEFormat.Object.Text = ""
  ' Substitute the path/file.ext you want to use above
ActivePresentation.SlideShowWindow.View.Slide.Shapes("SecretButton") _
       .TextFrame.TextRange.Text = "OK!"
   
ActivePresentation.SlideShowWindow.View.Slide.Shapes("SecretButton").Visible
= True
   
End Sub

Sub WriteStringToFile(pFileName As String, pString As String)

   Dim intFileNum As Integer
   intFileNum = FreeFile
   Open pFileName For Append As intFileNum
   Print #intFileNum, pString
   Close intFileNum
End Sub

Sub SetObjectName()
   Dim objectName As String
     If ActiveWindow.Selection.Type = ppSelectionShapes _
       Or ActiveWindow.Selection.Type = ppSelectionText Then
       If ActiveWindow.Selection.ShapeRange.Count = 1 Then
           objectName = InputBox(prompt:="Type a name for the object")
           objectName = Trim(objectName)
           If objectName = "" Then
               MsgBox ("You did not type anything. " & _
                   "The name will remain " & _
                   ActiveWindow.Selection.ShapeRange.Name)
           Else
               ActiveWindow.Selection.ShapeRange.Name = objectName
           End If
       Else
           MsgBox _
               ("You can not name more than one shape at a time. " _
               & "Select only one shape and try again.")
       End If
   Else
       MsgBox ("No shapes are selected.")
   End If
End Sub

Sub HideSecretButton()
ActivePresentation.Slides(1).Shapes("SecretButton").Visible = False

End Sub

Hi David,

I didn't change the code - as far as I remember, I just copied it into a new
empty 2003 presentation, then I created new shapes for keyboard, save button
and a secret button, assigned to each of them their names and procedures and
- it worked!

Thank you,

Serge

Oh yeah,

I haven't checked yet if 2003 version works in 2007. That's a good question.
I'll check and post it.

Cheers,

Serge