code128a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 10 行

Public Sub Main()

Dim Read_From_Disk, Display_Number As String

  Read_From_Disk = "123456789"\"
  Display_Number = Format (Read_From_Disk, "###-##-####")
  Debug.Print Display_Number

End Sub