If Then Loop MS WORD VBA

        If [txt_AltClientRepName] = "" Or IsNull([txt_AltClientRepName]) Then
           Msg = "Do you want to leave Alt Rep Name Blank?"    ' Define message.
           Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
           Title = "Blank Alt Rep Name"    ' Define title.
           Response = MsgBox(Msg, Style, Title)
           
           If Response = vbYes Then    ' User chose Yes.
               .Variables("AltClientRepName").Value = " "
               [txt_AltClientRepName] = " "
               .Variables("AltClientRepPhone").Value = " "
               [txt_AltClientRepPhone] = " "
               .Variables("AltClientRepFax").Value = " "
               [txt_AltClientRepFax] = " "
               .Variables("AltClientRepEmail").Value = " "
               [txt_AltClientRepEmail] = " "
               
           Else    ' User chose No.
               [txt_AltClientRepName].SetFocus
               Exit Sub
           End If
        Else
            If [txt_AltClientRepPhone] = "" Or IsNull([txt_AltClientRepPhone]) Then
               MsgBox "You must enter an Alt Client Rep Phone."
               [txt_AltClientRepPhone].SetFocus
               Exit Sub
            Else
              .Variables("AltClientRepPhone").Value = [txt_AltClientRepPhone].Text
            End If
            
            If [txt_AltClientRepFax] = "" Or IsNull([txt_AltClientRepFax]) Then
               MsgBox "You must enter an Alt Client Rep Fax."
                [txt_AltClientRepFax].SetFocus
               Exit Sub
            Else
               .Variables("AltClientRepFax").Value = [txt_AltClientRepFax].Text
            End If
            
            If [txt_AltClientRepEmail] = "" Or IsNull([txt_AltClientRepEmail]) Then
               MsgBox "You must enter an Alt Client Rep Email."
               [txt_AltClientRepEmail].SetFocus
               Exit Sub
            Else
               .Variables("AltClientRepEmail").Value = [txt_AltClientRepEmail].Text
            End If
        End If
       
        If [txt_MagbelleRepName] = "" Or IsNull([txt_MagbelleRepName]) Then
            MsgBox "You must enter a Magbelle Rep Name."
             [txt_MagbelleRepName].SetFocus
            Exit Sub
        Else
            .Variables("MagbelleRepName").Value = [txt_MagbelleRepName].Text
        End If
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53: