Sub Send_to_Telegram_Bot()
Dim oHttp As Object
Dim sURI As String
 
token = "573XXXXXXXXXXXXXXXXXXXXXXXXX"
chat_id = Worksheets(2).Cells(17, 8).Value
txt = "hello"
 
sURI = "https://api.telegram.org/bot" & token & "/sendmessage?chat_id=" & chat_id & "&text=" & txt
 
MsgBox sURI, vbInformation, "Запрос"
On Error Resume Next
Set oHttp = CreateObject("MSXML2.XMLHTTP")
If Err.Number <> 0 Then
Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
End If
On Error GoTo 0
If oHttp Is Nothing Then Exit Sub
oHttp.Open "GET", sURI, False
oHttp.Send
MsgBox oHttp.ResponseText, vbInformation, "Ответ"
Set oHttp = Nothing
End Sub

Selection.Replace What:=".", Replacement:=Application.DecimalSeparator, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Worksheets(2).Cells(6, 2) = serial

Worksheets(2).Cells(6, 2) = serial

Function FIAT_NEW(Method As Integer) As Double
On Error GoTo ErrorHandler

Dim Server_http, URL, SS2 As String
Dim VVV As Double
Dim serial As String
Dim serial_old As String
Dim A As Boolean

serial = Get_HwID()
serial_old = Worksheets(2).Cells(6, 2).value

If serial_old <> serial Then
A = MsgBox("Серийный номер не верный. Сгенерируйте свой на вкладке Настройки иначе использование этого серийного номера будет прекращено Автором", vbCritical)
Worksheets(2).Cells(6, 2) = serial
Exit Function
End If

Select Case Method
   Case 1
   SS = "USDUSD"
   
   Case 2
   SS = "USDEUR"
   
   Case 3
   SS = "USDRUB"
   
   Case 4
   SS = "USDUAH"
   
   Case 5
   SS = "USDKZT"
   
End Select
   
PublicApiSite = "https://query.yahooapis.com/v1/public/yql?q=select+*+from+yahoo.finance.xchange+where+pair+=+" & Chr(34) & SS & Chr(34) & "&format=json&env=store%3A%2F%2Fdatatables.org%2Falltableswithkeys&callback="

URL = PublicApiSite

' Instantiate a MSXML2.XMLHTTP object and open it
 With CreateObject("MSXML2.XMLHTTP")
       .Open "GET", URL, False
       .Send Null
       Server_http = .responseText
   End With

'Ищем в ответе сервера искомое значение
N1 = InStr(1, Server_http, "Rate") + 7  ' Определяем точку входа: Rate
N_St = Mid(Server_http, N1, 6)          ' Берем 6 символов
SS2 = Replace(N_St, ".", ",")           ' Заменяем точку на запятую

VVV = CDbl(SS2)                         ' Переводим текст в число
FIAT_NEW = VVV

Exit Function
ErrorHandler:
 
  On Error Resume Next
  MsgBox ("Ошибка исполнения: " & Err & Chr(13) & Chr(10) & "в модуле FIAT_NEW " & Err.Number & "  Номер ошибки:" & Err.Number & (13) & Chr(10) & "описание: " & Err.Description)
End Function

Sub TPN_Call()  ' Кнопка вызова функции
Dim A As Boolean

Call Init_DSK   ' Эта функция вставляет в модуль строки с функцией 3
  A = TPN_Order()
Call Close_DSK   ' Эта функция удаляет ранее прописанные код из модуля
End Sub

Function TPN_Order() As Boolean   'Отправка на биржу пакета ордеров из TP1, TP2,TP3
On Error GoTo ErrorHandler

MsgBox("Привет")
TPN_Order=True
Exit Function

ErrorHandler: 
  On Error Resume Next
  MsgBox ("Ошибка исполнения: " & Err & Chr(13) & Chr(10) & "в модуле TPN_Order " & Err.Number & Chr(13) & Chr(10) & "описание: " & Err.Description)
End Function

If serial_old <> serial Then 
MsgBox("1")
A = MsgBox("Серийный номер не верный. Сгенерируйте свой на вкладке Настройки иначе использование этого серийного номера будет прекращено Автором", vbCritical)
MsgBox("2")
Worksheets(2).Cells(6, 2) = serial
MsgBox("3")
Exit Function
End If

Exit Function
ErrorHandler:
 
  On Error Resume Next
MsgBox ("Ошибка исполнения: " & Err & Chr(13) & Chr(10) & "в модуле FIAT_NEW " & Err.Source & "  Номер ошибки:" & Err.Number & (13) & Chr(10) & "описание: " & Err.Description)

End Function

Worksheets(2).Cells(8, 2) = "Проверка"

serial = Get_HwID()
serial_old = Worksheets(2).Cells(6, 2).value  - значение читается с этого листа и не возникает проблем
If serial_old <> serial Then MsgBox("Серийный номер не верный."): Worksheets(2).Cells(6, 2) = serial: Exit Function    - на этой строке затыкается

MsgBox (Worksheets(2).Cells(6, 2))

Лист 1 
  Worksheets(2).Cells(6, 2) = "123" 
   ..... 
Лист 2  
  cell(6.2)

Worksheets(2).Cells(6, 2) = X

ActiveWorkbook.Worksheets(2).Cells(6, 2) = X

Лист 1
  Worksheets(2).Cells(6, 2) = "123"
   .....
Лист 2 
  cell(6.2)