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

''' hmm... werkt dat hier niet?
'    Do While Not IsEmpty(cel)
'        teller = teller + 1
'        cel = Cells(teller, 1).Select
'    Loop
    woordAantal = teller
    randomRij = Int(woordAantal * Rnd + 1)
'doe hier eens een output van randomRij om te zien welke rij hij kiest? 't Zou normaal '1' moeten zijn he

    wil = "A" & randomRij
    Range(wil).Select
    woord = ActiveCell.Value
'en hier eens een output van woord ... handig om zien of er echt iets in zit

    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)

'kun je niet gewoon Len(midden) doen?
    lengteMidden = Len(woord) - Len(begin) - Len(eind) - 2

    opgave = ""
    puntje = " . "

    'opgave = opgave & opgave & opgave & ...        hierbij zou hij opgave moeten vermenigvuldigen met opgave..
    'maar dat is onmogelijk gezien het een string en een integer is..
    'neeneen, er moet hier niets vermenigvuldigd worden hoor
    'gewoon in een loopje:
    For i = 1 To lengteMidden
       opgave = opgave & puntje
    Next i

    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