code128a.txt

VB大全（精华版）源代码

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