Расшифровка кода для "чайников" - VBA

Формулировка задачи:

Здравствуйте. Прошу помощи. Данная тема никак не стояла даже рядом от меня. Basic пока не планировала изучать. Помогите разобраться. (это из макросов Excel) Если не сложно, расшифруйте команды, которые представлены ниже:

Case "CUSTOMBOX1" 
Select Case UCase(DataVal(1)) 
Case "SET" 
chkCustom1.Value = CBool(Val(DataVal(2))) 
txtStatus2 = "Setting " & chkCustom1.Caption 
Case "GET" 
CommWrite cboPort.Text, CStr(Abs(CInt(chkCustom1.Value))) 
txtStatus2 = "Getting " & chkCustom1.Caption 
Call postToDirectDebug("Sending Custombox1 value '" & CStr(Abs(CInt(chkCustom1.Value))) & "'", DebugLevel.Outgoing) 
Case "LABEL" 
chkCustom1.Caption = DataVal(2) 
End Select

Решение задачи: «Расшифровка кода для "чайников"»

textual
                            Листинг программы 
                        

                            Select Case Х 'проверяем некое значение Х
Case "SET" 'если Х="SET"
'то выполняем некоторые действия
Case "GET" 'если Х="GET"
'то выполняем некоторые действия
End Select 'конец проверки
                        