tambien lo podes hacer con expresiones regulares, aca te paso un ejemplo de como seria esto de detectar una letra duplicada, capas este ejemplo tengas que modificarlo a tu gusto, pero te sirve para que veas como puede ser.
saludos.
Código (vbnet) [Seleccionar]
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim output As String = Regex.Replace("ppaattaaaaaaaatttaaa", "(.)\1{1,}", "$1")
MsgBox(output)
End Sub
End Class
saludos.