点击下载此附件

方法：用文本框更新后事件
Private Sub Text53_AfterUpdate()
    If Len(Me.Text53) = 1 Then
        Me.Text53 = Format(Me.Text53, "00")
    End If
End Sub