Как таковой, ваш код
NotifyIcon1.Text = "Arduino Sensor Monitor" & vbCrLf & dato & "ºC"
делает следующее:
Взяв строку «Arduino Sensor Monitor», добавив в нее новую строку, затем содержимое *Переменная 1006 * и, наконец, конкатенация "ºC" к этому без добавления разрыва строки.
Так как &
не должен добавлять разрыв строки, я предполагаю, что ваша переменная dato
содержитРазрыв строки.Если это так, использование Replace
должно помочь:
dato = Replace(dato, vbCrLf, "") 'removing line breaks in dato
NotifyIcon1.Text = "Arduino Sensor Monitor" & vbCrLf & dato & "ºC"