物流标准化除要强制推广一些涉及安全、环保、产业衔接、基础信息、基础管理与技术、服务质量与规定、消费者权益保护等方面的标准外，还鼓励企业制定和完善企业标准。

执行下面的程序，消息框里显示的结果是______。
Private Sub Form_Click()
Dim Str As String,S As String,k As Integer
Str="abc"
S=Str
For k=Len(Str) To 1 Step -1
S=S & (Mid(Str,k,1)
Next k
MsgBox S
End Sub