Excel 2007 vba error: "Run-time error 1004: Unable to set the text property fo the Characters Class"

Private Sub Workbook_AddinInstall()
    RUNME
End Sub
 
Private Sub Workbook_AddinUninstall()
    UNRUNME
End Sub
 
Option Explicit 'Top of module !
 
Public Const CSIDL_DESKTOP = &H0 '{desktop}
Public Const CSIDL_INTERNET = &H1 'Internet Explorer (icon on desktop)
Public Const CSIDL_PROGRAMS = &H2 'Start Menu\Programs
Public Const CSIDL_RECENT = &H8 '{user}\Recent
 
Public Declare Function SHGetPathFromIDList Lib "shell32" _
   Alias "SHGetPathFromIDListA" _
  (ByVal pidl As Long, _
   ByVal pszPath As String) As Long
 
Public Declare Function SHGetSpecialFolderLocation Lib "shell32" _
   (ByVal hwndOwner As Long, _
    ByVal nFolder As Long, _
    pidl As Long) As Long
 
Public Declare Sub CoTaskMemFree Lib "ole32" _
   (ByVal pv As Long)
 
Dim objWshShell As Object
Dim objShortcut As Object
 
Function GetSpecialFolderLocation(CSIDL As Long) As String
Dim sPath As String
Dim pidl As Long
If SHGetSpecialFolderLocation(1, CSIDL, pidl) = 0 Then
   sPath = Space$(260)
   If SHGetPathFromIDList(ByVal pidl, ByVal sPath) Then
      GetSpecialFolderLocation = Left(sPath, InStr(sPath, _
        Chr$(0)) - 1)
   End If
   Call CoTaskMemFree(pidl)
 End If
End Function
 
Public Function DesktopLocation() As String
    DesktopLocation = GetSpecialFolderLocation(&H10)
End Function
 
 
Public Sub Import()
    Dim fPath As String
    Dim fName As String
    Dim xlImportFrom As Workbook
    Dim xlImportSheet As Worksheet
    Dim xlImportTo As Workbook
    Dim xlClassData As Worksheet
    Dim currentCol As Long
    Dim BenchRowCount As Long
    Dim bRow As Long
    Dim sRow As Long
    Dim lastColName As String
    Dim lastTestNumber As Long
    Dim newColName As String
    Dim wasOpen As Boolean
    Dim TestNumber As String
    Dim i As Long
    Dim FoundRow As Variant
    Dim FoundValue As Variant
    Dim stName As String
    Dim stID As String
    Dim stScore As String
    Dim rng As Range
    Dim SplitStr As Variant
    Dim FoundStudentEntry As Boolean
    
    
    Set xlImportTo = ActiveWorkbook
    Set xlClassData = xlImportTo.Worksheets("Class Data")
    
    SplitStr = Strings.Split(Application.Caller, "_")
    TestNumber = SplitStr(1)
    currentCol = CInt(TestNumber) + 2
    
    fPath = DesktopLocation & "\NewReport.xls"
    fName = GetWBName(fPath)
    If Not IsWbOpen(fName) Then
        Set xlImportFrom = Workbooks.Open(fPath)
        wasOpen = False
    Else
        Set xlImportFrom = Workbooks(fName)
        wasOpen = True
    End If
    
    Set xlImportSheet = xlImportFrom.Worksheets(1)
    BenchRowCount = Application.WorksheetFunction.CountA(xlClassData.Range("a3:a150")) + 2
    SourceRowCount = Application.WorksheetFunction.CountA(xlImportSheet.Range("a12:a2000")) + 11
    
    For sRow = 13 To SourceRowCount
        'look for values not in benchsheet
        Set FoundValue = xlClassData.Range("b:b").Find(what:=xlImportSheet.Range("B" & sRow).Value, LookIn:=xlValues, LookAt:=xlWhole, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False)
        
        If FoundValue Is Nothing Then 'may need to modify to use existing student info
            stName = xlImportSheet.Range("A" & sRow)
            stID = xlImportSheet.Range("B" & sRow)
            'Find the first occurrence of "Student" and replace it.  Otherwise, insert a row and fill it
            bRow = 4
            Do While UCase(Left$(xlClassData.Cells(bRow, 1).Value, 7)) <> "STUDENT" And bRow <= BenchRowCount
                bRow = bRow + 1
            Loop
            If bRow <= BenchRowCount Then
                xlClassData.Cells(bRow, 1) = stName
                xlClassData.Cells(bRow, 2) = stID
                FoundStudentEntry = True
            End If
            
            
            If Not FoundStudentEntry Then
                'Insert a row
                xlClassData.Cells(BenchRowCount + 1, 1).EntireRow.Insert
                xlClassData.Cells(BenchRowCount + 1, 1) = stName
                xlClassData.Cells(BenchRowCount + 1, 2) = stID
                BenchRowCount = BenchRowCount + 1
            End If
        End If
    Next sRow
    
    For bRow = 4 To BenchRowCount
        Set FoundValue = xlImportSheet.Range("b:b").Find(what:=xlClassData.Range("B" & bRow).Value, _
            LookIn:=xlValues, LookAt:=xlWhole, searchorder:=xlByRows, _
            searchdirection:=xlNext, MatchCase:=False)
        If Not FoundValue Is Nothing Then
            stScore = FoundValue.Offset(0, 1).Value
            xlClassData.Cells(bRow, currentCol).Value = stScore
            xlImportTo.Activate
            xlClassData.Activate
'            Range("A" & bRow & ":" & "Q" & bRow).Select
'            With Selection.Borders(xlEdgeLeft)
'                .LineStyle = xlContinuous
'                .Weight = xlThin
'            End With
'            With Selection.Borders(xlEdgeTop)
'                .LineStyle = xlContinuous
'                .Weight = xlThin
'            End With
'            With Selection.Borders(xlEdgeBottom)
'                .LineStyle = xlContinuous
'                .Weight = xlThin
'            End With
'            With Selection.Borders(xlEdgeRight)
'                .LineStyle = xlContinuous
'                .Weight = xlThin
'            End With
'            With Selection.Borders(xlInsideVertical)
'                .LineStyle = xlContinuous
'                .Weight = xlThin
'            End With
        End If
                
    Next bRow
    
    xlImportTo.Activate
    If Not wasOpen Then xlImportFrom.Close
    Set xlImportFrom = Nothing
    
    
        
End Sub
 
 
Public Sub Import1stGrade()
    Dim fPath As String
    Dim fName As String
    Dim xlImportFrom As Workbook
    Dim xlImportSheet As Worksheet
    Dim xlImportTo As Workbook
    Dim xlClassData As Worksheet
    Dim currentCol As Long
    Dim BenchRowCount As Long
    Dim bRow As Long
    Dim sRow As Long
    Dim lastColName As String
    Dim lastTestNumber As Long
    Dim newColName As String
    Dim wasOpen As Boolean
    Dim TestNumber As String
    Dim i As Long
    Dim FoundRow As Variant
    Dim FoundValue As Variant
    Dim stName As String
    Dim stID As String
    Dim stScore As String
    Dim rng As Range
    Dim SplitStr As Variant
    Dim FoundStudentEntry As Boolean
    
    
    Set xlImportTo = ActiveWorkbook
    Set xlClassData = xlImportTo.Worksheets("Class Data")
    
    SplitStr = Strings.Split(Application.Caller, "_")
    TestNumber = SplitStr(1)
    currentCol = CInt(TestNumber) + 2
    
    'to handle second grid columns
    If currentCol > 14 Then currentCol = currentCol + 4
    
    fPath = DesktopLocation & "\NewReport.xls"
    fName = GetWBName(fPath)
    If Not IsWbOpen(fName) Then
        Set xlImportFrom = Workbooks.Open(fPath)
        wasOpen = False
    Else
        Set xlImportFrom = Workbooks(fName)
        wasOpen = True
    End If
    
    Set xlImportSheet = xlImportFrom.Worksheets(1)
    BenchRowCount = Application.WorksheetFunction.CountA(xlClassData.Range("a3:a2000")) + 2
    SourceRowCount = Application.WorksheetFunction.CountA(xlImportSheet.Range("a12:a2000")) + 11
    
    For sRow = 13 To SourceRowCount
        'look for values not in benchsheet
        Set FoundValue = xlClassData.Range("b:b").Find(what:=xlImportSheet.Range("B" & sRow).Value, LookIn:=xlValues, LookAt:=xlWhole, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False)
        
        If FoundValue Is Nothing Then 'may need to modify to use existing student info
            stName = xlImportSheet.Range("A" & sRow)
            stID = xlImportSheet.Range("B" & sRow)
            'Find the first occurrence of "Student" and replace it.  Otherwise, insert a row and fill it
            bRow = 4
            Do While UCase(Left$(xlClassData.Cells(bRow, 1).Value, 7)) <> "STUDENT" And bRow <= BenchRowCount
                bRow = bRow + 1
            Loop
            If bRow <= BenchRowCount Then
                xlClassData.Cells(bRow, 1) = stName
                xlClassData.Cells(bRow, 2) = stID
                xlClassData.Cells(bRow, 17) = stName
                xlClassData.Cells(bRow, 18) = stID
                FoundStudentEntry = True
            End If
            
            
            If Not FoundStudentEntry Then
                'Insert a row
                xlClassData.Cells(BenchRowCount + 1, 1).EntireRow.Insert
                xlClassData.Cells(BenchRowCount + 1, 1) = stName
                xlClassData.Cells(BenchRowCount + 1, 2) = stID
                xlClassData.Cells(BenchRowCount + 1, 17) = stName
                xlClassData.Cells(BenchRowCount + 1, 18) = stID
                BenchRowCount = BenchRowCount + 1
            End If
        End If
    Next sRow
    
    For bRow = 4 To BenchRowCount
        Set FoundValue = xlImportSheet.Range("b:b").Find(what:=xlClassData.Range("B" & bRow).Value, _
            LookIn:=xlValues, LookAt:=xlWhole, searchorder:=xlByRows, _
            searchdirection:=xlNext, MatchCase:=False)
        If Not FoundValue Is Nothing Then
            stScore = FoundValue.Offset(0, 1).Value
            xlClassData.Cells(bRow, currentCol).Value = stScore
            xlImportTo.Activate
            xlClassData.Activate
'            Range("A" & bRow & ":" & "Q" & bRow).Select
'            With Selection.Borders(xlEdgeLeft)
'                .LineStyle = xlContinuous
'                .Weight = xlThin
'            End With
'            With Selection.Borders(xlEdgeTop)
'                .LineStyle = xlContinuous
'                .Weight = xlThin
'            End With
'            With Selection.Borders(xlEdgeBottom)
'                .LineStyle = xlContinuous
'                .Weight = xlThin
'            End With
'            With Selection.Borders(xlEdgeRight)
'                .LineStyle = xlContinuous
'                .Weight = xlThin
'            End With
'            With Selection.Borders(xlInsideVertical)
'                .LineStyle = xlContinuous
'                .Weight = xlThin
'            End With
        End If
                
    Next bRow
    
    xlImportTo.Activate
    If Not wasOpen Then xlImportFrom.Close
    Set xlImportFrom = Nothing
    
    
        
End Sub
 
 
Public Sub ImportProgress()
    Dim fPath As String
    Dim fName As String
    Dim xlImportFrom As Workbook
    Dim xlImportSheet As Worksheet
    Dim xlImportTo As Workbook
    Dim xlClassData As Worksheet
    Dim currentCol As Long
    Dim BenchRowCount As Long
    Dim LastIDRow As Long
    Dim bRow As Long
    Dim sRow As Long
    Dim lastColName As String
    Dim lastTestNumber As Long
    Dim newColName As String
    Dim wasOpen As Boolean
    Dim TestNumber As String
    Dim i As Long
    Dim FoundRow As Variant
    Dim FoundValue As Variant
    Dim stName As String
    Dim stID As String
    Dim stScore As String
    Dim rng As Range
    Dim SplitStr As Variant
    Dim FoundStudentEntry As Boolean
    Dim StepVal As Integer
    Dim r1 As Long, r2 As Long, ir As Long
    
    Set xlImportTo = ActiveWorkbook
    Set xlClassData = xlImportTo.Worksheets(1)
    
    
    fPath = DesktopLocation & "\NewReport.xls"
    fName = GetWBName(fPath)
    If Not IsWbOpen(fName) Then
        Set xlImportFrom = Workbooks.Open(fPath)
        wasOpen = False
    Else
        Set xlImportFrom = Workbooks(fName)
        wasOpen = True
    End If
    
    Set xlImportSheet = xlImportFrom.Worksheets(1)
    
    
    For r = 4 To 2000
        If Trim(xlClassData.Range("a" & r).Value) = "ID" Then
            r1 = r
            For ir = r + 1 To 2000
                If Trim(xlClassData.Range("a" & ir).Value) = "ID" Then
                    r2 = ir
                    Exit For
                End If
            Next ir
        Exit For
        End If
    Next r
            
    StepVal = r2 - r1
        
    
    For r = 2000 To 4 Step -1
        If Trim(xlClassData.Range("a" & r).Value) = "ID" Then
            LastIDRow = r
            Exit For
        End If
    Next r
    For r = 2000 To 4 Step -1
        If Trim(xlClassData.Range("a" & r).Value) = "Intervention Changes" Then
            BenchRowCount = r
            Exit For
        End If
    Next r
    
    
    
    
    
    
    
    SourceRowCount = Application.WorksheetFunction.CountA(xlImportSheet.Range("a12:a2000")) + 11
    
    For sRow = 13 To SourceRowCount
        'look for values not in benchsheet
        Set FoundValue = xlClassData.Range("a:a").Find(what:=xlImportSheet.Range("B" & sRow).Value, LookIn:=xlValues, LookAt:=xlWhole, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False)
        
        If FoundValue Is Nothing Then 'may need to modify to use existing student info
            stName = xlImportSheet.Range("A" & sRow)
            stID = xlImportSheet.Range("B" & sRow)
            'Find the first occurrence of "Student" and replace it.  Otherwise, insert a row and fill it
            bRow = 4
            Do While UCase(Left$(xlClassData.Cells(bRow, 1).Value, 7)) <> "STUDENT" And bRow <= BenchRowCount
                bRow = bRow + StepVal
            Loop
            If bRow <= BenchRowCount Then
                xlClassData.Cells(bRow, 1) = stName
                xlClassData.Cells(bRow + 1, 1) = stID
                FoundStudentEntry = True
            End If
            
            
            If Not FoundStudentEntry Then
                'Insert a row, may have to copy and paste a section?
                xlClassData.Range("A" & BenchRowCount - StepVal & ":AS" & BenchRowCount).Copy
                xlClassData.Paste Destination:=Worksheets(1).Range("A" & BenchRowCount + 1 & ":AS" & BenchRowCount + StepVal)
 
                xlClassData.Cells(LastIDRow + StepVal - 1, 1) = stName
                xlClassData.Cells(LastIDRow + StepVal, 1) = stID
                BenchRowCount = BenchRowCount + 1
            End If
        End If
    Next sRow
    
    
    xlImportTo.Activate
    If Not wasOpen Then
        xlImportFrom.Close savechanges:=False
        Set xlImportFrom = Nothing
 
    End If
    
    
        
End Sub
 
 
Public Sub RUNME()
    'place cursor here and hit F5
    Select Case WhichToInstall
        Case "OtherGrade":
            StudentScoresInstall
        Case "FirstGrade":
            StudentScores1stGradeInstall
        Case "Progress":
            ProgressInstall
        Case Else:
            'do nothing
    End Select
End Sub
 
 
Public Sub UNRUNME()
    Select Case WhichToInstall
        Case "OtherGrade":
            StudentScoresUninstall
        Case "FirstGrade":
            StudentScores1stGradeUninstall
        Case "Progress":
            ProgressUninstall
        Case Else:
            'do nothing
    End Select
 
End Sub
 
 
Public Function IsWbOpen(wbName As String) As Boolean
    Dim i As Long
    For i = Workbooks.Count To 1 Step -1
        If Workbooks(i).Name = wbName Then Exit For
    Next
    If i <> 0 Then IsWbOpen = True
End Function
Public Function GetWBName(wbPath As String) As String
    Dim i As Long
    Dim ls As Long
    
    For i = Len(wbPath) To 1 Step -1
        If Mid$(wbPath, i, 1) = "\" Then
            ls = i
            Exit For
        End If
    Next i
    
    GetWBName = Mid$(wbPath, ls + 1)
End Function
 
Public Sub StudentScoresInstall()
    'delete all buttons on sheet1
    Dim YW As Workbook
    Set YW = ActiveWorkbook
    Dim BS As Worksheet
    Set BS = YW.Worksheets("Class Data")
    Dim sh As Shape
    Dim c As Long
    Dim cTop As Variant
    Dim cLeft As Variant
    Dim cWidth As Variant
    
    For Each sh In BS.Shapes
        If sh.Type = msoFormControl Then sh.Delete
    Next
    
    'find coordinates and information for top row of range, place buttons there
    'row 3 is the start
    For c = 3 To 17
        Set sh = BS.Shapes.AddFormControl(xlButtonControl, BS.Cells(3, c).Left, BS.Cells(3, c).Top, BS.Cells(3, c).Width, BS.Cells(3, c).Height)
        sh.Name = "Button_" & CStr(c - 2)
        sh.OnAction = "StudentScores.xla!Import"
    Next c
    
    For Each sh In BS.Shapes
        If sh.Type = msoFormControl Then
            Select Case sh.Name
                Case "Button_1", "Button_6", "Button_11":
                    sh.Select
                    Selection.Characters.Text = "MA"
                Case "Button_2", "Button_7", "Button_12":
                    sh.Select
                    Selection.Characters.Text = "Z"
                Case "Button_3", "Button_8", "Button_13":
                    sh.Select
                    Selection.Characters.Text = "RCBM"
                Case "Button_4", "Button_9", "Button_14":
                    sh.Select
                    Selection.Characters.Text = "TWW"
                Case "Button_5", "Button_10", "Button_15":
                    sh.Select
                    Selection.Characters.Text = "CWS"
            End Select
        End If
    Next
    BS.Cells(4, 3).Select
 
End Sub
Public Sub StudentScoresUninstall()
    'delete all buttons on sheet1
    Dim YW As Workbook
    Set YW = ActiveWorkbook
    Dim BS As Worksheet
    Set BS = YW.Worksheets("Class Data")
    Dim sh As Shape
    Dim c As Long
    Dim cTop As Variant
    Dim cLeft As Variant
    Dim cWidth As Variant
    
    For Each sh In BS.Shapes
        If sh.Type = msoFormControl Then sh.Delete
    Next
    
 
End Sub
Public Sub StudentScores1stGradeInstall()
    'delete all buttons on sheet1
    Dim YW As Workbook
    Set YW = ActiveWorkbook
    Dim BS As Worksheet
    Set BS = YW.Worksheets("Class Data")
    Dim sh As Shape
    Dim c As Long
    Dim cTop As Variant
    Dim cLeft As Variant
    Dim cWidth As Variant
    
    For Each sh In BS.Shapes
        If sh.Type = msoFormControl Then sh.Delete
    Next
    
    'find coordinates and information for top row of range, place buttons there
    'row 3 is the start
    For c = 3 To 14
        Set sh = BS.Shapes.AddFormControl(xlButtonControl, BS.Cells(3, c).Left, BS.Cells(3, c).Top, BS.Cells(3, c).Width, BS.Cells(3, c).Height)
        sh.Name = "Button_" & CStr(c - 2)
        sh.OnAction = "StudentScores.xla!Import1stGrade"
    Next c
    For c = 19 To 36
        Set sh = BS.Shapes.AddFormControl(xlButtonControl, BS.Cells(3, c).Left, BS.Cells(3, c).Top, BS.Cells(3, c).Width, BS.Cells(3, c).Height)
        sh.Name = "Button_" & CStr(c - 6)
        sh.OnAction = "StudentScores.xla!Import1stGrade"
    Next c
    
    
    For Each sh In BS.Shapes
        If sh.Type = msoFormControl Then
            Select Case sh.Name
                Case "Button_1", "Button_5", "Button_9":
                    sh.Select
                    Selection.Characters.Text = "MN"
                Case "Button_2", "Button_6", "Button_10":
                    sh.Select
                    Selection.Characters.Text = "QD"
                Case "Button_3", "Button_7", "Button_11":
                    sh.Select
                    Selection.Characters.Text = "NI"
                Case "Button_4", "Button_8", "Button_12":
                    sh.Select
                    Selection.Characters.Text = "OC"
                Case "Button_13", "Button_19", "Button_25":
                    sh.Select
                    Selection.Characters.Text = "LNF"
                Case "Button_14", "Button_20", "Button_26":
                    sh.Select
                    Selection.Characters.Text = "LSF"
                Case "Button_15", "Button_21", "Button_27":
                    sh.Select
                    Selection.Characters.Text = "PSF"
                Case "Button_16", "Button_22", "Button_28":
                    sh.Select
                    Selection.Characters.Text = "NWF"
                Case "Button_17", "Button_23", "Button_29":
                    sh.Select
                    Selection.Characters.Text = "TWW"
                Case "Button_18", "Button_24", "Button_30":
                    sh.Select
                    Selection.Characters.Text = "CWS"
            End Select
        End If
    Next
    BS.Cells(4, 3).Select
 
End Sub
Public Sub StudentScores1stGradeUninstall()
    'delete all buttons on sheet1
    Dim YW As Workbook
    Set YW = ActiveWorkbook
    Dim BS As Worksheet
    Set BS = YW.Worksheets("Class Data")
    Dim sh As Shape
    Dim c As Long
    Dim cTop As Variant
    Dim cLeft As Variant
    Dim cWidth As Variant
    
    For Each sh In BS.Shapes
        If sh.Type = msoFormControl Then sh.Delete
    Next
 
End Sub
Public Sub ProgressInstall()
    'delete all buttons on sheet1
    Dim YW As Workbook
    Set YW = ActiveWorkbook
    Dim BS As Worksheet
    Set BS = YW.Worksheets(1)
    Dim sh As Shape
    Dim c As Long
    Dim cTop As Variant
    Dim cLeft As Variant
    Dim cWidth As Variant
    
    For Each sh In BS.Shapes
        If sh.Type = msoFormControl Then sh.Delete
    Next
    
    'find coordinates and information for top row of range, place buttons there
    'row 3 is the start
    
        Set sh = BS.Shapes.AddFormControl(xlButtonControl, BS.Cells(2, 1).Left, BS.Cells(2, 1).Top, BS.Cells(2, 1).Width, BS.Cells(2, 1).Height)
        sh.Name = "Button_SN"
        sh.OnAction = "StudentScores.xla!ImportProgress"
        sh.Select
        Selection.Characters.Text = "Import Students"
    
    BS.Cells(2, 3).Select
 
End Sub
Public Sub ProgressUninstall()
    'delete all buttons on sheet1
    Dim YW As Workbook
    Set YW = ActiveWorkbook
    Dim BS As Worksheet
    Set BS = YW.Worksheets(1)
    Dim sh As Shape
    
    For Each sh In BS.Shapes
        If sh.Type = msoFormControl Then sh.Delete
    Next
 
End Sub
Public Function WhichToInstall() As String
    Dim YW As Workbook
    Set YW = ActiveWorkbook
    Dim BS As Worksheet
    On Error GoTo EH
    Set BS = YW.Worksheets(1)
    Dim OutputString As String
    
    Select Case True
        Case Trim(BS.Range("Q3").Value) = "Name":
            OutputString = "FirstGrade"
        Case Trim(BS.Range("D1").Value) = "First day of school year:"
            OutputString = "Progress"
        Case Trim(BS.Range("Q3").Value) = "CWS":
            OutputString = "OtherGrade"
        Case Else:
            OutputString = ""
    End Select
    
    WhichToInstall = OutputString
 
Exit Function
EH:
    If Err.Number = 91 Then
        MsgBox "You must open a workbook that is compatible with this Add-in.", vbCritical + vbOKOnly, "StudentScores Add-in Error!"
        End
    End If
    
End Function
                                              

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:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
656:
657:
658:
659:
660:
661:
662:
663:
664:
665:
666:
667:
668:
669:
670:
671:
672:
673:
674:
675:
676:
677:
678:
679:
680:
681:
682:
683:
684:
685:
686:
687:
688:
689:
690:
691:
692:
693:
694:
695:
696: