Sub Woordritsen()
    Dim teller As Integer, cel As Integer, woordAantal As Integer, randomRij As Integer, wil As String, _
    woord As String, koppelteken As Integer, omgWoord As String, koppelteken2 As Integer, begin As String, eind As String, _
    midden As String, lengteMidden As Integer, opgave As String, oplossing As String

    teller = 1
    cel = Cells(teller, 1).Select
'    Do While Not IsEmpty(cel)
'        teller = teller + 1
'        cel = Cells(teller, 1).Select
'    Loop
    woordAantal = teller
    randomRij = Int(woordAantal * Rnd + 1)

    wil = "A" & randomRij
    Range(wil).Select
    woord = ActiveCell.Value

    koppelteken = InStr(woord, "-")
    omgWoord = StrReverse(woord)
    koppelteken2 = InStr(omgWoord, "-")

    begin = Left(woord, koppelteken - 1)
    eind = Right(woord, koppelteken2 - 1)
    midden = Mid(woord, koppelteken + 1, (Len(woord) - koppelteken2) - koppelteken)

    lengteMidden = Len(woord) - Len(begin) - Len(eind) - 2
    opgave = " . "

    'opgave = opgave & opgave & opgave & ...        hierbij zou hij opgave moeten vermenigvuldigen met opgave..
    'maar dat is onmogelijk gezien het een string en een integer is..

    oplossing = InputBox(begin & "-" & opgave & "-" & eind, "Woordritsen")
    oplossing = UCase(oplossing)
    If oplossing <> midden Then
        MsgBox "Fout! Het juiste antwoord was " & woord & ".", vbCritical, "Woordritsen"
        GoTo EXIT_SUB

        Else
            MsgBox "Correct! Het juiste antwoord was inderdaad " & woord & ".", vbInformation, "Woordritsen"
EXIT_SUB:
        Exit Sub
    End If
End Sub