If Me.Controls.Find("txtCod1", True).Count = 1 Then

Dim b As TextBox = Me.Controls.Find("txtCod1", True)(0)

MsgBox(b.Text)

End If

Вам нужно отфильтровать необходимые элементы управления. Самым быстрым решением было бы использовать Linq. Итак, импортируйте System.Link и выполните:

    Dim textBoxes = Controls.OfType(Of TextBox).Where(Function(c) c.Name.StartsWith("txtCod"))

    For Each tb In textBoxes

        MsgBox(tb.Text)

    Next