dotNETportal.cz

Nevím, jestli jsem Vaše potřeby pochopil zcela strávně, ale zkuste třeba toto (vypadá to sice delší, ale myslím, že i bez okomenyování je to pochopitelné):

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim slovo As String = "kontrolováno"
        Dim posledni As Integer

        Label1.Text = ""
        posledni = slovo.Length - 1
        For i As Integer = 0 To posledni

            If posledni - i >= 2 AndAlso hledejtri(slovo.Substring(i, 3)) Then
                i += 2
            Else
                If posledni - i >= 1 AndAlso hledejdva(slovo.Substring(i, 2)) Then
                    i += 1
                Else
                    If Not hledejjeden(slovo.Substring(i, 1)) Then
                        MsgBox("interpretace pro písmeno " & slovo.Substring(i, 1) & " nenalezena!")
                    End If
                End If
            End If

        Next
    End Sub


    Private Function hledejtri(ByVal txt As String) As Boolean
        Select Case txt.ToLower
            Case "kon"
                Label1.Text &= "-Kon-"
            Case "tro"
                Label1.Text &= "-Tro-"
            Case "ová"
                Label1.Text &= "-Ová-"
            Case Else
                Return False
        End Select
        Return True
    End Function


    Private Function hledejdva(ByVal txt As String) As Boolean
        Select Case txt.ToLower
            Case "ko"
                Label1.Text &= "-Ko-"
            Case "lo"
                Label1.Text &= "-Lo-"
            Case "vá"
                Label1.Text &= "-Vá-"
            Case "no"
                Label1.Text &= "-No-"
            Case Else
                Return False
        End Select
        Return True
    End Function


    Private Function hledejjeden(ByVal txt As String) As Boolean
        Select Case txt.ToLower
            Case "k"
                Label1.Text &= "-K-"
            Case "l"
                Label1.Text &= "-L-"
            Case "v"
                Label1.Text &= "-V-"
            Case "n"
                Label1.Text &= "-N-"
            Case Else
                Return False
        End Select
        Return True
    End Function

(Jenom pro testovací účely posílám "zprávy o nalezení hledané skupiny) do labelu, je samozřejmě na Vás, co s nimi již podniknete)