Considere o seguinte trecho de programa Visual Basic:

Sub Teste()

Dim T As String

Dim S As String

Dim I As Integer

Dim J As Integer

T = ""

S = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

For I = 1 To 8

J = 1 + (I - 1) * 3

T = T & Right(Mid(S, J, 2), 1)

Next I

MsgBox T

End Sub

O valor de T mostrado ao final da execução do procedimento Teste é: