Найти ошибку в коде "Арифметический ребус"

Sub rebus()
 
Dim first As Long 'число первой строки (множимое)
Dim second As Long 'число второй строки (множитель)
Dim third As Long 'число третьей строки
Dim fourth As Long 'число четвёртой строки
Dim fifth As Long 'число пятой строки
Dim sixth As Long 'число шестой строки (произведение)
 
third = first * (second Mod 10)
fourth = first * ((second \ 10) Mod 10)
fifth = first * (second \ 100)
sixth = first * second
 
For first = 100 To 999
    For second = 100 To 999
        If sixth Like "###777" Then
            Select Case third
            Case 7000 To 7999
                Select Case fourth
                Case 100 To 999
                    Select Case fifth
                    Case 1000 To 9999
                        MsgBox "      " & first & vbCr & "     *" & vbCr & "      " _
                        & second & vbCr & "      ___" & vbCr & "     " & third & vbCr & _
                        "    " & fourth & vbCr & "  " & fifth & vbCr & "______" & vbCr & sixth
                    End Select
                End Select
            End Select
        End If
    Next
Next
 
End Sub

For first = 100 To 999
    For second = 100 To 999
        sixth = first * second '!!!
        If sixth Like "###777" Then