Option Explicit
Const INSTITUTION = "ПТУ"
Const SPECIALTY = "Автосервис"
Const COURSE = "3"
Const GROUP = "34"
Const COPYRIGHT = "Copyright © 2015 Сержант ;)"
DIM ST_1, ST_2
ST_1 = INSTITUTION & ", " & SPECIALTY & ", " & COURSE & ", " & GROUP
ST_2 = "Я учусь в " & INSTITUTION & " на специальности " & SPECIALTY & " курс " & COURSE & ", группа " & GROUP & "."
MsgBox ST_1 & vbCrLf & ST_2 & vbCrLf & COPYRIGHT, 1, "Результат"