Public nastroyki As String
Public osnovnie_d As String
Public id_upd_v_buh As String
Public obmen_d As String

Public Sub Globalnie_peremennie()
nastroyki = "Настройки"
osnovnie_d = "Основные данные"
id_upd_v_buh = "3-три"
obmen_d = "4-четыре"
End Sub

Sub tttttt()
Globalnie_peremennie
MsgBox nastroyki & ", " & osnovnie_d & ", " & id_upd_v_buh & ", " & obmen_d
End Sub