执行下列的程序，消息框里显示的结果是______。
Pfivate Sub Form_Click()
Dim Str As String
Str＝""
S="Access"
For i＝Len(S) To 1 Step-1
Str＝Str&Mid(S.i,1)
Next i
MsgBox Str
End Sub