Attribute VB_Name = "Main"
Option Explicit
Public bStartComm As Boolean
Public strInBuffers As String
Public nOptInterval As Integer
Public nSample As Integer
Public nCount As Integer
Public strHead_No As String
Public nEnd_No As Integer
Public Const TOTAL_NO = 10

Public Const strRing = vbCrLf + "RING" + vbCrLf

Public Function GetTwoRing(strTele As String) As String
    GetTwoRing = strRing + vbCrLf + "DATE = " + Format(Date, "mmdd") + vbCrLf + _
                 vbCrLf + "TIME = " + Format(Time, "hhmm") + vbCrLf + _
                 vbCrLf + "NMBR = " + strTele + vbCrLf
End Function