Imports System

Public Module Module1

    Public Sub Main()

        Dim protein = "GLSDGEWQQVLNVWGKVEADIAGHGQEVLIRLFTGHPETLEKFDKFKHLKTEAEMKASEDLKKHGTVVLTALGGILKKKEGHHEAELKPLAQSHATKHKIPIKYLEFISDAIIHVLHSKHRPGDFGADAQGAMTKALELFRNDIAAKYKELGFQG"

        Dim counter = 0

        Do While counter < protein.Length - 2

            counter += 1

            Dim currentLetter = protein(counter)

            Dim nextLetter = protein(counter + 1)

            If (currentLetter = "K"c OrElse currentLetter = "R"c) AndAlso nextLetter <> "P"c Then

                protein = protein.Substring(0, counter) & protein.Substring(counter + 1)

            End If

        Loop

        Console.WriteLine(protein)

    End Sub

End Module