Under no circumstance run this code ALI!

Sub Maareni()
Dim x, aStr As String, mSTR As String, i As Integer
x = Array(" ", "O", "N", "A", "D", "T", "I", "S", "L")
aStr = aStr & x(5) & x(1) & x(6) & x(4) & x(6)
aStr = aStr & x(0) & x(2) & x(3) & x(0) & x(7)
aStr = aStr & x(6) & " ," & x(6) & x(8) & x(3)
For i = 16 To 1 Step -1
mSTR = mSTR & Mid(aStr, i, 1)
Next i
mSTR = Application.Substitute(mSTR, "IS", "you are")
MsgBox mSTR & ".", vbCritical, "The Answer is 42."
End Sub

Here is my question Ahmed;
"What is the most common name given to 'teddy bears' now?
....clue here http://www.cafepress.com/bobmccarty.194693988


Evolbob
"ALI" wrote in message ...
gjgnu ffg sd khdgub adfycbhjvsd


Does that mean your teddy bear is named Jesus - I wouldn't mind :)