Как сократить код

'RAD 1
'A mm /////////////////////////////////
'B1R1A
         If TextBoxB1R1A.Value = "" Then
            If AP.IsText(Cells(10, 4)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(10, 4) * 1 <> 0 Then
              TextBoxB1R1A.Value = AP.Cells(10, 4) * 1
         ElseIf AP.Cells(10, 4) * 1 = "" Then
            TextBoxB1R1A.Value = ""
           End If
          End If
'B2R1A
        If TextBoxB2R1A.Value = "" Then
            If AP.IsText(Cells(11, 4)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(11, 4) * 1 <> 0 Then
            TextBoxB2R1A.Value = AP.Cells(11, 4) * 1
        ElseIf AP.Cells(11, 4) * 1 = "" Then
            TextBoxB2R1A.Value = ""
           End If
        End If
'B3R1A
        If TextBoxB3R1A.Value = "" Then
            If AP.IsText(Cells(12, 4)) Then
        GoTo MsgErr:
            End If
           If AP.Cells(12, 4) * 1 <> 0 Then
            TextBoxB3R1A.Value = AP.Cells(12, 4) * 1
        ElseIf AP.Cells(12, 4) * 1 = "" Then
            TextBoxB3R1A.Value = ""
           End If
        End If
'B4R1A
        If TextBoxB4R1A.Value = "" Then
            If AP.IsText(Cells(13, 4)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(13, 4) * 1 <> 0 Then
            TextBoxB4R1A.Value = AP.Cells(13, 4) * 1
        ElseIf AP.Cells(13, 4) * 1 = "" Then
            TextBoxB4R1A.Value = ""
           End If
        End If
'B5R1A
        If TextBoxB5R1A.Value = "" Then
            If AP.IsText(Cells(14, 4)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(14, 4) * 1 <> 0 Then
            TextBoxB5R1A.Value = AP.Cells(14, 4) * 1
        ElseIf AP.Cells(14, 4) * 1 = "" Then
            TextBoxB5R1A.Value = ""
           End If
        End If
'B6R1A
        If TextBoxB6R1A.Value = "" Then
           If AP.IsText(Cells(15, 4)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(15, 4) * 1 <> 0 Then
            TextBoxB6R1A.Value = AP.Cells(15, 4) * 1
        ElseIf AP.Cells(15, 4) * 1 = "" Then
            TextBoxB6R1A.Value = ""
           End If
        End If
'B7R1A
        If TextBoxB7R1A.Value = "" Then
           If AP.IsText(Cells(16, 4)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(16, 4) * 1 <> 0 Then
            TextBoxB7R1A.Value = AP.Cells(16, 4) * 1
        ElseIf AP.Cells(16, 4) * 1 = "" Then
            TextBoxB7R1A.Value = ""
           End If
        End If
'B8R1A
        If TextBoxB8R1A.Value = "" Then
           If AP.IsText(Cells(17, 4)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(17, 4) * 1 <> 0 Then
            TextBoxB8R1A.Value = AP.Cells(17, 4) * 1
        ElseIf AP.Cells(17, 4) * 1 = "" Then
            TextBoxB8R1A.Value = ""
           End If
        End If
'B9R1A
        If TextBoxB9R1A.Value = "" Then
           If AP.IsText(Cells(18, 4)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(18, 4) * 1 <> 0 Then
            TextBoxB9R1A.Value = AP.Cells(18, 4) * 1
        ElseIf AP.Cells(18, 4) * 1 = "" Then
            TextBoxB9R1A.Value = ""
           End If
        End If
'B10R1A
        If TextBoxB10R1A.Value = "" Then
           If AP.IsText(Cells(19, 4)) Then
       GoTo MsgErr:
            End If
        If AP.Cells(19, 4) * 1 <> 0 Then
            TextBoxB10R1A.Value = AP.Cells(19, 4) * 1
        ElseIf AP.Cells(19, 4) * 1 = "" Then
            TextBoxB10R1A.Value = ""
           End If
        End If
'B mm //////////////////////////////////////////
'B1R1B
        If TextBoxB1R1B.Value = "" Then
           If AP.IsText(Cells(10, 5)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(10, 5) * 1 <> 0 Then
            TextBoxB1R1B.Value = AP.Cells(10, 5) * 1
         ElseIf AP.Cells(10, 5) * 1 = "" Then
            TextBoxB1R1B.Value = ""
           End If
          End If
'B2R1B
        If TextBoxB2R1B.Value = "" Then
           If AP.IsText(Cells(11, 5)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(11, 5) * 1 <> 0 Then
            TextBoxB2R1B.Value = AP.Cells(11, 5) * 1
        ElseIf AP.Cells(11, 5) * 1 = "" Then
            TextBoxB2R1B.Value = ""
           End If
        End If
'B3R1B
        If TextBoxB3R1B.Value = "" Then
           If AP.IsText(Cells(12, 5)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(12, 5) * 1 <> 0 Then
            TextBoxB3R1B.Value = AP.Cells(12, 5) * 1
        ElseIf AP.Cells(12, 5) * 1 = "" Then
            TextBoxB3R1B.Value = ""
           End If
        End If
'B4R1B
        If TextBoxB4R1B.Value = "" Then
           If AP.IsText(Cells(13, 5)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(13, 5) * 1 <> 0 Then
            TextBoxB4R1B.Value = AP.Cells(13, 5) * 1
        ElseIf AP.Cells(13, 5) * 1 = "" Then
            TextBoxB4R1B.Value = ""
           End If
        End If
'B5R1B
        If TextBoxB5R1B.Value = "" Then
           If AP.IsText(Cells(14, 5)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(14, 5) * 1 <> 0 Then
            TextBoxB5R1B.Value = AP.Cells(14, 5) * 1
        ElseIf AP.Cells(14, 5) * 1 = "" Then
            TextBoxB5R1B.Value = ""
           End If
        End If
'B6R1B
        If TextBoxB6R1B.Value = "" Then
           If AP.IsText(Cells(15, 5)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(15, 5) * 1 <> 0 Then
            TextBoxB6R1B.Value = AP.Cells(15, 5) * 1
        ElseIf AP.Cells(15, 5) * 1 = "" Then
            TextBoxB6R1B.Value = ""
           End If
        End If
'B7R1B
        If TextBoxB7R1B.Value = "" Then
           If AP.IsText(Cells(16, 5)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(16, 5) * 1 <> 0 Then
            TextBoxB7R1B.Value = AP.Cells(16, 5) * 1
        ElseIf AP.Cells(16, 5) * 1 = "" Then
            TextBoxB7R1B.Value = ""
           End If
        End If
'B8R1B
        If TextBoxB8R1B.Value = "" Then
           If AP.IsText(Cells(17, 5)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(17, 5) * 1 <> 0 Then
            TextBoxB8R1B.Value = AP.Cells(17, 5) * 1
        ElseIf AP.Cells(17, 5) * 1 = "" Then
            TextBoxB8R1B.Value = ""
           End If
        End If
'B9R1B
        If TextBoxB9R1B.Value = "" Then
           If AP.IsText(Cells(18, 5)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(18, 5) * 1 <> 0 Then
            TextBoxB9R1B.Value = AP.Cells(18, 5) * 1
        ElseIf AP.Cells(18, 5) * 1 = "" Then
            TextBoxB9R1B.Value = ""
           End If
        End If
'B10R1B
        If TextBoxB10R1B.Value = "" Then
           If AP.IsText(Cells(19, 5)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(19, 5) * 1 <> 0 Then
            TextBoxB10R1B.Value = AP.Cells(19, 5) * 1
        ElseIf AP.Cells(19, 5) * 1 = "" Then
            TextBoxB10R1B.Value = ""
           End If
        End If
'C mm /////////////////////////////////////////////
'B1R1C
        If TextBoxB1R1C.Value = "" Then
           If AP.IsText(Cells(10, 6)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(10, 6) * 1 <> 0 Then
            TextBoxB1R1C.Value = AP.Cells(10, 6) * 1
         ElseIf AP.Cells(10, 6) * 1 = "" Then
            TextBoxB1R1Ñ.Value = ""
           End If
          End If
'B2R1C
        If TextBoxB2R1C.Value = "" Then
           If AP.IsText(Cells(11, 6)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(11, 6) * 1 <> 0 Then
            TextBoxB2R1C.Value = AP.Cells(11, 6) * 1
        ElseIf AP.Cells(11, 6) * 1 = "" Then
            TextBoxB2R1Ñ.Value = ""
           End If
        End If
'B3R1C
        If TextBoxB3R1C.Value = "" Then
           If AP.IsText(Cells(12, 6)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(12, 6) * 1 <> 0 Then
            TextBoxB3R1C.Value = AP.Cells(12, 6) * 1
        ElseIf AP.Cells(12, 6) * 1 = "" Then
            TextBoxB3R1Ñ.Value = ""
           End If
        End If
'B4R1C
        If TextBoxB4R1C.Value = "" Then
           If AP.IsText(Cells(13, 6)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(13, 6) * 1 <> 0 Then
            TextBoxB4R1C.Value = AP.Cells(13, 6) * 1
        ElseIf AP.Cells(13, 6) * 1 = "" Then
            TextBoxB4R1Ñ.Value = ""
           End If
        End If
'B5R1C
        If TextBoxB5R1C.Value = "" Then
           If AP.IsText(Cells(14, 6)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(14, 6) * 1 <> 0 Then
            TextBoxB5R1C.Value = AP.Cells(14, 6) * 1
        ElseIf AP.Cells(14, 6) * 1 = "" Then
            TextBoxB5R1Ñ.Value = ""
           End If
        End If
'B6R1C
        If TextBoxB6R1C.Value = "" Then
           If AP.IsText(Cells(15, 6)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(15, 6) * 1 <> 0 Then
            TextBoxB6R1C.Value = AP.Cells(15, 6) * 1
        ElseIf AP.Cells(15, 6) * 1 = "" Then
            TextBoxB6R1Ñ.Value = ""
           End If
        End If
'B7R1C
        If TextBoxB7R1C.Value = "" Then
           If AP.IsText(Cells(16, 6)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(16, 6) * 1 <> 0 Then
            TextBoxB7R1C.Value = AP.Cells(16, 6) * 1
        ElseIf AP.Cells(16, 6) * 1 = "" Then
            TextBoxB7R1Ñ.Value = ""
           End If
        End If
'B8R1C
        If TextBoxB8R1C.Value = "" Then
           If AP.IsText(Cells(17, 6)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(17, 6) * 1 <> 0 Then
            TextBoxB8R1C.Value = AP.Cells(17, 6) * 1
        ElseIf AP.Cells(17, 6) * 1 = "" Then
            TextBoxB8R1Ñ.Value = ""
           End If
        End If
'B9R1C
        If TextBoxB9R1C.Value = "" Then
           If AP.IsText(Cells(18, 6)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(18, 6) * 1 <> 0 Then
            TextBoxB9R1C.Value = AP.Cells(18, 6) * 1
        ElseIf AP.Cells(18, 6) * 1 = "" Then
            TextBoxB9R1Ñ.Value = ""
           End If
        End If
'B10R1C
        If TextBoxB10R1C.Value = "" Then
           If AP.IsText(Cells(19, 6)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(19, 6) * 1 <> 0 Then
            TextBoxB10R1C.Value = AP.Cells(19, 6) * 1
        ElseIf AP.Cells(19, 6) * 1 = "" Then
            TextBoxB10R1C.Value = ""
           End If
        End If
'D mm////////////////////////////////////////////
'B1R1D
        If TextBoxB1R1D.Value = "" Then
           If AP.IsText(Cells(10, 7)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(10, 7) * 1 <> 0 Then
            TextBoxB1R1D.Value = AP.Cells(10, 7) * 1
         ElseIf AP.Cells(10, 7) * 1 = "" Then
            TextBoxB1R1D.Value = ""
           End If
          End If
'B2R1D
        If TextBoxB2R1D.Value = "" Then
           If AP.IsText(Cells(11, 7)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(11, 7) * 1 <> 0 Then
            TextBoxB2R1D.Value = AP.Cells(11, 7) * 1
        ElseIf AP.Cells(11, 7) * 1 = "" Then
            TextBoxB2R1D.Value = ""
           End If
        End If
'B3R1D
        If TextBoxB3R1D.Value = "" Then
           If AP.IsText(Cells(12, 7)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(12, 7) * 1 <> 0 Then
            TextBoxB3R1D.Value = AP.Cells(12, 7) * 1
        ElseIf AP.Cells(12, 7) * 1 = "" Then
            TextBoxB3R1D.Value = ""
           End If
        End If
'B4R1D
        If TextBoxB4R1D.Value = "" Then
           If AP.IsText(Cells(13, 7)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(13, 7) * 1 <> 0 Then
            TextBoxB4R1D.Value = AP.Cells(13, 7) * 1
        ElseIf AP.Cells(13, 7) * 1 = "" Then
            TextBoxB4R1D.Value = ""
           End If
        End If
'B5R1D
        If TextBoxB5R1D.Value = "" Then
           If AP.IsText(Cells(14, 7)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(14, 7) * 1 <> 0 Then
            TextBoxB5R1D.Value = AP.Cells(14, 7) * 1
        ElseIf AP.Cells(14, 7) * 1 = "" Then
            TextBoxB5R1D.Value = ""
           End If
        End If
'B6R1D
        If TextBoxB6R1D.Value = "" Then
           If AP.IsText(Cells(15, 7)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(15, 7) * 1 <> 0 Then
            TextBoxB6R1D.Value = AP.Cells(15, 7) * 1
        ElseIf AP.Cells(15, 7) * 1 = "" Then
            TextBoxB6R1D.Value = ""
           End If
        End If
'B7R1D
        If TextBoxB7R1D.Value = "" Then
           If AP.IsText(Cells(16, 7)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(16, 7) * 1 <> 0 Then
            TextBoxB7R1D.Value = AP.Cells(16, 7) * 1
        ElseIf AP.Cells(16, 7) * 1 = "" Then
            TextBoxB7R1D.Value = ""
           End If
        End If
'B8R1D
        If TextBoxB8R1D.Value = "" Then
           If AP.IsText(Cells(17, 7)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(17, 7) * 1 <> 0 Then
            TextBoxB8R1D.Value = AP.Cells(17, 7) * 1
        ElseIf AP.Cells(17, 7) * 1 = "" Then
            TextBoxB8R1D.Value = ""
           End If
        End If
'B9R1D
        If TextBoxB9R1D.Value = "" Then
           If AP.IsText(Cells(18, 7)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(18, 7) * 1 <> 0 Then
            TextBoxB9R1D.Value = AP.Cells(18, 7) * 1
        ElseIf AP.Cells(18, 7) * 1 = "" Then
            TextBoxB9R1D.Value = ""
           End If
        End If
'B10R1D
        If TextBoxB10R1D.Value = "" Then
           If AP.IsText(Cells(19, 7)) Then
       GoTo MsgErr:
            End If
           If AP.Cells(19, 7) * 1 <> 0 Then
            TextBoxB10R1D.Value = AP.Cells(19, 7) * 1
        ElseIf AP.Cells(19, 7) * 1 = "" Then
            TextBoxB10R1D.Value = ""
           End If
        End If
        
'Description/////////////////////
 'B1R1Description
        If TextBoxB1R1Description.Value = "" Then
           If AP.Cells(10, 8) <> 0 Then
            TextBoxB1R1Description.Value = AP.Cells(10, 8)
         ElseIf AP.Cells(10, 8) = "" Then
            TextBoxB1R1Description.Value = ""
           End If
          End If
'B2R1Description
        If TextBoxB2R1Description.Value = "" Then
           If AP.Cells(11, 8) <> 0 Then
            TextBoxB2R1Description.Value = AP.Cells(11, 8)
        ElseIf AP.Cells(11, 8) = "" Then
            TextBoxB2R1Description.Value = ""
           End If
        End If
'B3R1Description
        If TextBoxB3R1Description.Value = "" Then
           If AP.Cells(12, 8) <> 0 Then
            TextBoxB3R1Description.Value = AP.Cells(12, 8)
        ElseIf AP.Cells(12, 8) = "" Then
            TextBoxB3R1Description.Value = ""
           End If
        End If
'B4R1Description
        If TextBoxB4R1Description.Value = "" Then
           If AP.Cells(13, 8) <> 0 Then
            TextBoxB4R1Description.Value = AP.Cells(13, 8)
        ElseIf AP.Cells(13, 8) = "" Then
            TextBoxB4R1Description.Value = ""
           End If
        End If
'B5R1Description
        If TextBoxB5R1Description.Value = "" Then
          If AP.Cells(14, 8) <> 0 Then
            TextBoxB5R1Description.Value = AP.Cells(14, 8)
        ElseIf AP.Cells(14, 8) = "" Then
            TextBoxB5R1Description.Value = ""
           End If
        End If
'B6R1Description
        If TextBoxB6R1Description.Value = "" Then
           If AP.Cells(15, 8) <> 0 Then
            TextBoxB6R1Description.Value = AP.Cells(15, 8)
        ElseIf AP.Cells(15, 8) = "" Then
            TextBoxB6R1Description.Value = ""
           End If
        End If
'B7R1Description
        If TextBoxB7R1Description.Value = "" Then
           If AP.Cells(16, 8) <> 0 Then
            TextBoxB7R1Description.Value = AP.Cells(16, 8)
        ElseIf AP.Cells(16, 8) = "" Then
            TextBoxB7R1Description.Value = ""
           End If
        End If
'B8R1Description
        If TextBoxB8R1Description.Value = "" Then
           If AP.Cells(17, 8) <> 0 Then
            TextBoxB8R1Description.Value = AP.Cells(17, 8)
        ElseIf AP.Cells(17, 8) = "" Then
            TextBoxB8R1Description.Value = ""
           End If
        End If
'B9R1Description
        If TextBoxB9R1Description.Value = "" Then
           If AP.Cells(18, 8) <> 0 Then
            TextBoxB9R1Description.Value = AP.Cells(18, 8)
        ElseIf AP.Cells(18, 8) = "" Then
            TextBoxB9R1Description.Value = ""
           End If
        End If
'B10R1Description
        If TextBoxB10R1Description.Value = "" Then
          If AP.Cells(19, 8) <> 0 Then
            TextBoxB10R1Description.Value = AP.Cells(19, 8)
        ElseIf AP.Cells(19, 8) = "" Then
            TextBoxB10R1Description.Value = ""
           End If
        End If

Dim x As Object, i As Byte, r As Range
    Set r = Sheets(1).[d10:H24]
    For Each x In Me.Controls
        If TypeOf x Is MSForms.TextBox Then
            i = i + 1
            x.Value = r(i)
        End If
    Next
End Sub

       Set F = UserForm1 'Ваша форма
       
       For i = 1 To 10
          For j = 4 To 7
              Set TB = F.Controls("TextBoxB" & i & "R1" & Choose(j - 3, "A", "B", "C", "D"))
              If TB.Value = "" Then
                 If AP.IsText(Cells(i + 9, j)) Then GoTo MsgErr
                 If AP.Cells(i + 9, j) * 1 <> 0 Then
                    TB.Value = AP.Cells(i + 9, j) * 1
                 ElseIf AP.Cells(i + 9, j) * 1 = "" Then
                    TB.Value = ""
                 End If
              End If
          Next j
       Next i

Private Sub CommandButton1_Click()
 Dim fileToOpen As String
    Dim AP As Excel.Application
    Dim WB As Excel.Workbook
    Dim ws As Excel.Worksheet
    Dim i As Integer
    Dim j As Integer
 
Dim TextBoxB1R1A As Integer
    On Error Resume Next
        fileToOpen = FenceCreator.TextBoxBrowse.Text()
             Set AP = Excel.Application
            Set WB = AP.Workbooks.Open(fileToOpen)
            Set ws = WB.Worksheets("measures")
            Set F = FenceCreator
For i = 1 To 10
For j = 4 To 7
     If Controls("TextBoxB" & i & "R1" & Choose(j - 3, "A", "B", "C", "D")).Value = "" Then
       If AP.IsText(Cells(i + 9, j)) Then GoTo MsgErr '.Value
       If AP.Cells(i + 9, j) * 1 <> 0 Then
          F.Controls("TextBoxB" & i & "R1" & Choose(j - 3, "A", "B", "C", "D")).Value = Cells(i + 9, j) * 1
          ElseIf AP.Cells(i + 9, j) * 1 = "" Then
          F.Controls("TextBoxB" & i & "R1" & Choose(j - 3, "A", "B", "C", "D")).Value = ""
     End If
     End If
     If Controls("TextBoxB" & i & "R2" & Choose(j - 3, "A", "B", "C", "D")).Value = "" Then
        If AP.IsText(Cells(i + 9, j + 7)) Then GoTo MsgErr '.Value
        If AP.Cells(i + 9, j + 7) * 1 <> 0 Then
          F.Controls("TextBoxB" & i & "R2" & Choose(j - 3, "A", "B", "C", "D")).Value = Cells(i + 9, j + 7) * 1
        ElseIf AP.Cells(i + 9, j + 7) * 1 = "" Then
          F.Controls("TextBoxB" & i & "R2" & Choose(j - 3, "A", "B", "C", "D")).Value = ""
     End If
     End If
     If Controls("TextBoxB" & i & "R3" & Choose(j - 3, "A", "B", "C", "D")).Value = "" Then
        If AP.IsText(Cells(i + 9, j + 14)) Then GoTo MsgErr '.Value
        If AP.Cells(i + 9, j + 14) * 1 <> 0 Then
          F.Controls("TextBoxB" & i & "R3" & Choose(j - 3, "A", "B", "C", "D")).Value = Cells(i + 9, j + 14) * 1
        ElseIf AP.Cells(i + 9, j + 14) * 1 = "" Then
          F.Controls("TextBoxB" & i & "R3" & Choose(j - 3, "A", "B", "C", "D")).Value = ""
     End If
     End If
     If Controls("TextBoxB" & i & "R4" & Choose(j - 3, "A", "B", "C", "D")).Value = "" Then
        If AP.IsText(Cells(i + 9, j + 21)) Then GoTo MsgErr '.Value
        If AP.Cells(i + 9, j + 21) * 1 <> 0 Then
          F.Controls("TextBoxB" & i & "R4" & Choose(j - 3, "A", "B", "C", "D")).Value = Cells(i + 9, j + 21) * 1
        ElseIf AP.Cells(i + 9, j + 21) * 1 = "" Then
          F.Controls("TextBoxB" & i & "R4" & Choose(j - 3, "A", "B", "C", "D")).Value = ""
     End If
     End If
     
     '''''
     If Controls("TextBoxB" & i & "R5" & Choose(j - 3, "A", "B", "C", "D")).Value = "" Then
       If AP.IsText(Cells(i + 28, j)) Then GoTo MsgErr '.Value
       If AP.Cells(i + 28, j) * 1 <> 0 Then
          F.Controls("TextBoxB" & i & "R5" & Choose(j - 3, "A", "B", "C", "D")).Value = Cells(i + 28, j) * 1
       ElseIf AP.Cells(i + 28, j) * 1 = "" Then
          F.Controls("TextBoxB" & i & "R5" & Choose(j - 3, "A", "B", "C", "D")).Value = ""
     End If
     End If
     If Controls("TextBoxB" & i & "R6" & Choose(j - 3, "A", "B", "C", "D")).Value = "" Then
        If AP.IsText(Cells(i + 28, j + 7)) Then GoTo MsgErr '.Value
        If AP.Cells(i + 28, j + 7) * 1 <> 0 Then
          F.Controls("TextBoxB" & i & "R6" & Choose(j - 3, "A", "B", "C", "D")).Value = Cells(i + 28, j + 7) * 1
        ElseIf AP.Cells(i + 28, j + 7) * 1 = "" Then
          F.Controls("TextBoxB" & i & "R6" & Choose(j - 3, "A", "B", "C", "D")).Value = ""
     End If
     End If
     If Controls("TextBoxB" & i & "R7" & Choose(j - 3, "A", "B", "C", "D")).Value = "" Then
        If AP.IsText(Cells(i + 28, j + 14)) Then GoTo MsgErr '.Value
        If AP.Cells(i + 28, j + 14) * 1 <> 0 Then
          F.Controls("TextBoxB" & i & "R7" & Choose(j - 3, "A", "B", "C", "D")).Value = Cells(i + 28, j + 14) * 1
        ElseIf AP.Cells(i + 28, j + 14) * 1 = "" Then
          F.Controls("TextBoxB" & i & "R7" & Choose(j - 3, "A", "B", "C", "D")).Value = ""
     End If
     End If
     If Controls("TextBoxB" & i & "R8" & Choose(j - 3, "A", "B", "C", "D")).Value = "" Then
        If AP.IsText(Cells(i + 28, j + 21)) Then GoTo MsgErr '.Value
        If AP.Cells(i + 28, j + 21) * 1 <> 0 Then
          F.Controls("TextBoxB" & i & "R8" & Choose(j - 3, "A", "B", "C", "D")).Value = Cells(i + 28, j + 21) * 1
        ElseIf AP.Cells(i + 28, j + 21) * 1 = "" Then
          F.Controls("TextBoxB" & i & "R8" & Choose(j - 3, "A", "B", "C", "D")).Value = ""
     End If
     End If
     ''''''''
    If Controls("TextBoxB" & i & "R9" & Choose(j - 3, "A", "B", "C", "D")).Value = "" Then
       If AP.IsText(Cells(i + 47, j)) Then GoTo MsgErr '.Value
       If AP.Cells(i + 47, j) * 1 <> 0 Then
          F.Controls("TextBoxB" & i & "R9" & Choose(j - 3, "A", "B", "C", "D")).Value = Cells(i + 47, j) * 1
       ElseIf AP.Cells(i + 47, j) * 1 = "" Then
          F.Controls("TextBoxB" & i & "R9" & Choose(j - 3, "A", "B", "C", "D")).Value = ""
     End If
     End If
     If Controls("TextBoxB" & i & "R10" & Choose(j - 3, "A", "B", "C", "D")).Value = "" Then
        If AP.IsText(Cells(i + 47, j + 7)) Then GoTo MsgErr '.Value
        If AP.Cells(i + 47, j + 7) * 1 <> 0 Then
          F.Controls("TextBoxB" & i & "R10" & Choose(j - 3, "A", "B", "C", "D")).Value = Cells(i + 47, j + 7) * 1
        ElseIf AP.Cells(i + 47, j + 7) * 1 = "" Then
          F.Controls("TextBoxB" & i & "R10" & Choose(j - 3, "A", "B", "C", "D")).Value = ""
     End If
     End If
     
Next j
Next i
MsgErr:
    If AP.IsText(Cells(i + 9, j)) Then
          MsgBox "Data type mismatch  in Excel"
    ElseIf AP.IsText(Cells(i + 9, j + 7)) Then
        MsgBox "Data type mismatch  in Excel"
    ElseIf AP.IsText(Cells(i + 9, j + 14)) Then
        MsgBox "Data type mismatch  in Excel"
    ElseIf AP.IsText(Cells(i + 9, j + 21)) Then
        MsgBox "Data type mismatch  in Excel"
    ElseIf AP.IsText(Cells(i + 28, j)) Then
        MsgBox "Data type mismatch  in Excel"
    ElseIf AP.IsText(Cells(i + 28, j + 7)) Then
        MsgBox "Data type mismatch  in Excel"
    ElseIf AP.IsText(Cells(i + 28, j + 14)) Then
        MsgBox "Data type mismatch  in Excel"
    ElseIf AP.IsText(Cells(i + 28, j + 21)) Then
        MsgBox "Data type mismatch  in Excel"
    End If
    AP.Quit
End Sub