Dim randInt As New Random()


    Private Function ToEmail(ByVal voornaam As String, ByVal achternaam As String) As String
        Return voornaam.Replace(" ", "").ToLower + "." + achternaam.Replace(" ", "").ToLower + "@howest.be"
    End Function




    '2
    Private Function MaxGetal(ByVal iEen As Integer, ByVal iTwee As Integer, ByVal iDrie As Integer, ByVal iVier As Integer) As Integer
        Dim max As Integer = iEen
        Dim numbers() As Integer = {iEen, iTwee, iDrie, iVier}

        For iCounter = 0 To UBound(numbers) 'in this example loop through 0 to 3
            If numbers(iCounter) > max Then
                max = numbers(iCounter)
            End If
        Next

        Return (max)
    End Function



    '3
    Private Function RandomKleur() As String
        Dim kleuren() As String = {"rood", "groen", "geel", "blauw"}
        Return kleuren(randInt.Next(0, 4))
    End Function


    '4
    Private Function NaamEmail(ByVal email As String) As String
        Dim output() As String = email.Split(".") 'tussen voornaam en achternaam splitsen (Hij splits ook wel tussen howest en be.. But who cares ? Dat hebben we toch niet nodig)
        output = output(1).Split("@") 'Nu tussen de achternaam en domeinnaam splitsen.

        Return output(0)
    End Function



    '5
    Private Function MaandDagen(ByVal maand As String) As Integer
        maand = maand.ToLower
        Select Case maand
            Case "januari", "maart", "mei", "juli", "augustus", "oktober", "december"
                Return 31
            Case "april", "juni", "september", "november"
                Return 30
            Case "februari"
                Return 29
            Case Else
                Return 0
        End Select
    End Function