Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strKarakter, strKarakter2, strTekst, strZweeds As String

        Dim intTeller, intLengte As Integer
        strZweeds = ""
        strTekst = InputBox("Geef uw zin op")
        intLengte = strTekst.Length



        intTeller = 0
        While intTeller < intLengte
            strKarakter = strTekst.Substring(intTeller, 1)

            If strKarakter = "a" Or strKarakter = "e" Or strKarakter = "u" Or strKarakter = "i" Or strKarakter = "o" Then


                If intTeller + 1 < intLengte Then
                    intTeller += 1
                End If
                strKarakter2 = strTekst.Substring(intTeller, 1)
                If strKarakter2 = "a" Or strKarakter2 = "e" Or strKarakter2 = "u" Or strKarakter2 = "i" Or strKarakter2 = "o" Then
                    strKarakter = "eu"
                    strZweeds = strZweeds & strKarakter
                Else
                    intTeller -= 1
                    strKarakter = "eu"
                    strZweeds = strZweeds & strKarakter


                End If
            Else
                strZweeds = strZweeds & strKarakter

            End If
            intTeller += 1
        End While
        lblTekst.Text = strZweeds
    End Sub


End Class