Error 13 en tiempo de ejecucion.

Buenas, tengo un programa que hace pruebas y me da este error 13 en tiempo de ejecucion, no coinciden los tipos,
este es el codigo el error me lo da en la primera linea.
If Text1(9).Text > 22 Then
    Text1(1).Text = 99
ElseIf Text1(9).Text = 22 Then
    Text1(1).Text = 98
ElseIf Text1(9).Text = 21 Then
    Text1(1).Text = 97
ElseIf Text1(9).Text = 20 Then
    Text1(1).Text = 96
ElseIf Text1(9).Text = 19 Then
    Text1(1).Text = 95
ElseIf Text1(9).Text > 16 And Text1(9).Text < 19 Then
    Text1(1).Text = 90
ElseIf Text1(9).Text = 16 Then
    Text1(1).Text = 85
ElseIf Text1(9).Text = 15 Then
    Text1(1).Text = 75
ElseIf Text1(9).Text = 14 Then
    Text1(1).Text = 70
ElseIf Text1(9).Text = 13 Then
    Text1(1).Text = 65
ElseIf Text1(9).Text = 12 Then
    Text1(1).Text = 55
ElseIf Text1(9).Text = 11 Then
    Text1(1).Text = 45
ElseIf Text1(9).Text = 10 Then
    Text1(1).Text = 40
ElseIf Text1(9).Text = 9 Then
    Text1(1).Text = 35
ElseIf Text1(9).Text = 8 Then
    Text1(1).Text = 30
ElseIf Text1(9).Text = 7 Then
    Text1(1).Text = 25
ElseIf Text1(9).Text = 6 Then
    Text1(1).Text = 15
ElseIf Text1(9).Text = 5 Then
    Text1(1).Text = 10
ElseIf Text1(9).Text = 4 Then
    Text1(1).Text = 5
ElseIf Text1(9).Text = 3 Then
    Text1(1).Text = 3
ElseIf Text1(9).Text < 3 Then
    Text1(1).Text = 1
End If