Vba 输入掩码以制作可选的zip+；4显示连字符可选

目的：

要使zip+4中的连字符在+4数据不存在时不显示（我还想对我的电话号码字段中的可选区号和分机号应用相同的逻辑）

我的输入掩码使用了以下VBA（我已为我的事件尝试了GetFocus（）、BeforeUpdate（）、AfterUpdate（）和LostFocus（））：

Private Sub-Zip_LostFocus（）
'仅当使用“Plus-4”邮政编码时才显示连字符（-）
如果Len（[Zip]）5那么
Me.[Zip].InputMask=“00000 \-9999；；979;”
其他的
如果结束
端接头

我在这件事上找人帮忙真是费了好大劲。 我很感激任何人能为我的“困扰”提供解决方案

埃兰达林

---

附言：现在我知道为什么我在搜索中找不到“inputmask”，需要1500个代表才能创建一个新的“标签”；现有的是“输入掩码”。

为什么需要掩码？如果可以避免显示字符串5中的连字符，而将其包含在字符串9中，那么您不能只执行一个子字符串吗？我希望避免在电话号码中存储硬编码字符（“-”，邮政编码；“（“，”）”和“x”）。如果我用VB编写整个过程，是否会引发安全问题？除非在前5个字符中存在特殊字符，否则不会得到任何特殊字符。如果这些都是基于美国的有效邮政编码，并且您没有抑制前导零，那么这应该不是问题。用户必须在zip+4条目中输入连字符？在格式正确的美国zip+4条目中，连字符不是第六个字符吗。。。。

Private Sub Zip_LostFocus()
    'Display hyphen (-) only if using "Plus-4" zip code
    If Len([Zip]) <= 5 Then
        Me.[Zip].InputMask = "00000;;_"
    End If
    If Len([Zip]) > 5 Then
        Me.[Zip].InputMask = "00000\-9999;;_"
    Else
    End If
End Sub