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 CInt(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