Операторы VBA If с несоответствием типов ошибок общедоступных переменных (ошибка 13)

Я думаю, что это, вероятно, быстрое решение, но оно ставило меня в тупик все утро.

Я определил многие переменные как общедоступные в верхней части проекта vba (любые переменные, оканчивающиеся на «yn», являются строковыми, а остальные — вариантными или одиночными). Различные сабвуферы в рамках проекта определяют эти переменные с помощью серии вопросов и ответов. Теперь в конце, когда я пытаюсь скомпилировать определенные переменные в уравнение, я получаю сообщение об ошибке.

Я уже проделал этот же процесс с другим окончательным уравнением на прошлой неделе, и он работал нормально. Я проверил каждую переменную, чтобы убедиться, что она введена правильно, и я не вижу ничего плохого в коде. Пожалуйста помоги! Спасибо!

    Public Sub Rth1 ()

    Dim Red1th as single

    If Width1thyn = vbYes Then
        If Length1thyn = vbYes Then
            If V1turnspeedyn = vbYes Then
                Red1th = ((Width1th + 20) / (1.47 * 20)) - 1
            Else
                Red1th = ((Width1th + 20) / (1.47 * V1turnspeedstudy)) - 1
            End If
        Else
            If V1turnspeedyn = vbYes Then
                Red1th = ((Width1th + Length1thstudy) / (1.47 * 20)) - 1
            Else
                Red1th = ((Width1th + Length1thstudy) / (1.47 * V1turnspeedstudy)) - 1
            End If
        End If
    Else
        If Length1thyn = vbYes Then
            If V1turnspeedyn = vbYes Then
                Red1th = ((Width1thstudy + 20) / (1.47 * 20)) - 1
            Else
                Red1th = ((Width1thstudy + 20) / (1.47 * V1turnspeedstudy)) - 1
            End If
        Else
            If V1turnspeedyn = vbYes Then
                Red1th = ((Width1thstudy + Length1thstudy) / (1.47 * 20)) - 1
            Else
                Red1th = ((Width1thstudy + Length1thstudy) / (1.47 * V1turnspeedstudy)) - 1
            End If
        End If
    End If

    MsgBox "Red Clearance Interval is " & Red1th, "vbOkOnly", "Red Clearance Interval"

    End Sub