Public Function LeesZakgeld(ByVal muntCode As String) As Decimal
        'declaratie
        Dim zakgeldInvoer, minimumBedrag, boodschap As String
        Dim zakgeld As Decimal

        'initialisatie
        minimumBedrag = ""

        'minimumbedrag bepalen
        Select Case muntCode
            Case "EUR"
                minimumBedrag = _minimumBedrag.EUR
            Case "USD"
                minimumBedrag = _minimumBedrag.USD
            Case "JPY"
                minimumBedrag = _minimumBedrag.JPY
        End Select

        'inlezen
        boodschap = "Hoeveel zakgeld gaat u meenemen (waarde in eigen munt): "
        Do
            'controleren op numerieke waarde
            Do
                Console.Write(boodschap)
                zakgeldInvoer = Console.ReadLine
                boodschap = "Sorry, je moet een bedrag invullen, probeer het nog een keer: "
            Loop Until IsNumeric(zakgeldInvoer)

            'controlen op minimumbedrag
            If zakgeldInvoer < CInt(minimumBedrag) Then
                boodschap = "Het bedrag moet minimum " & minimumBedrag & " " & muntCode & " zijn: "
            Else
                zakgeld = CDec(zakgeldInvoer) 'conversie
            End If
        Loop 'Until zakgeld > minimumBedrag

        'terugkeerwaarde
        Return zakgeld
    End Function