VBAコードが理解不能です。。。

Question

お久しぶりです。pipiでございます。
フォームのラベルに文字を反映する関数(GetCampanyInfo())の処理が分からなくて困っています。
Excelの『設定シート』のC1からC4にフォームから会社情報を登録し、それを、ラベルに表示している
のですが、その処理が分かりません。さらに、『設定シート』のD1からD4には、以下の様な関数も入力
されており、一体このIF()も何のために使っているのかも分からない状態です。。
どなたかご教授願います。
=IF(C1="","",C1)
=IF(C2="","",B2&C2)
=IF(C3="","",C3)
=IF(C4="","",B4&" "&C4)

Sub Test()
lblCampany.Caption = GetCampanyInfo()
Exit Sub

↓ラベルに反映させる関数↓
なぜ、わざわざ、S-""などとして半角のスペースなんていれてるのでしょう？？
とにかく、以下のコードは何をやっているのでしょう～？？？？

Public Function GetCampanyInfo() As String
    With Worksheets("設定")
        Dim InfoRange As Range
        Set InfoRange = .Range("D1:D4")
        
        Dim s As String
        s = ""
        
        Dim r As Range
        
        For Each r In InfoRange
            s = s & r.Value & vbNewLine
        Next
    End With
    GetCampanyInfo = s
End Function

Answer 1

s = "" の部分は半角スペースを入れているのではなく、空文字を入れています。
(ダブルクォーテーションの間に半角スペースはありません)
下のfor のところで、s に文字列を連結していく処理があるので、そのための初期設定です。
s には InfoRange (つまりD1:D4)の値を改行(vbNewLine)で連結した文字列が入ります。

=IF(C2="","",B2&C2) は C2 が空だったら、D2 も空、C2 に何か入っておれば、B2とC2を連結した文字列がD2に入ります。
例えば、 C2 が 525-222 だったら B2 の 〒 と連結してD2には〒525-222が入ります。
実際、そうなってますよね。
C4も同様です。
ただ、C1、C3はよくわかりません。単に =C1 でもいいような気がします。