Dim strIn, strVä, strHö As String
        Dim idx, intPos As Integer

        strIn = InputBox("Skriv in mening.")
        intPos = InStr(strIn, "kk")

        Do
            If intPos > 0 Then 'Om "kk" förekommer i meningen
                Select Case LCase(Mid(strIn, intPos - 1, 1)) 'Om föregående bokstav är en vokal
                    Case "a", "e", "i", "o", "u", "y", "å", "ä", "ö"
                        'Strängen till vänster om "kk"
                        strVä = Microsoft.VisualBasic.Left(strIn, intPos - 1)
                        'Strängen till höger om "kk" 
                      strHö = Microsoft.VisualBasic.Right(strIn, strIn.Length - strVä.Length - 2) 
                        strIn = strVä & "ck" & strHö 'Den fixade strängen
                End Select
            End If
            intPos = InStr(intPos + 1, strIn, "kk") 'Start för leta nästa "kk"
        Loop While intPos > 0

        MsgBox(strIn)