'подпрограмма для разбора сообщения модуля
'=============================================================================
Sub Getline(s As String)
   S = ""
   Do

      B = Inkey()                    'берем символ из буфера в формате ASCII
      Select Case B
          Case 0                    'возвращает в случае пустого буфера
          Case 13                    'возврат каретки (Enter), заместо него можно поставить пробел
          Case 10 : If S <> "" Then Exit Do                 'конец строки, значит выходит из подпрограммы
          Case Else : If B > 31 Then S = S + Chr(b)         'печатаемые символы начинаются с кода 32 по таблице АСКИ, из них составляем строку
      End Select

   Loop
End Sub

Sub Getline(s As String)
   S = ""
  dim bb byte
Do

      B = Inkey()                    'берем символ из буфера в формате ASCII
      Select Case B
          Case 0                    'возвращает в случае пустого буфера
          Case 13                    'возврат каретки (Enter), заместо него можно поставить пробел
          Case 10 : If S <> "" Then Exit Do                 'конец строки, значит выходит из подпрограммы
          Case Else : If B > 31 Then S = S + Chr(b)         'печатаемые
символы начинаются с кода 32 по таблице АСКИ, из них составляем строку
      End Select
incr bb
  if bb>100 then  'выйдем после 100 итераций
   exit do
end if
   Loop
bb=0   'обнуляем переменную
End Sub

КодDim Number As String * 13                    'номер телефона