Вот пример программы на Visual Basic, которая выполняет указанное действие:

Module Main
Sub Main()
Dim word As String = "какая-то строка для проверки"
Dim newWord As String = ""
Dim foundA As Boolean = False
For i As Integer = 0 To word.Length - 1
If word(i) = "а"c Then
foundA = True
ElseIf foundA AndAlso i Mod 2 <> 0 Then
newWord = newWord & "_"
Else
newWord = newWord & word(i)
End If
Next
Console.WriteLine(newWord)
End Sub
End Module

Программа принимает строку "какая-то строка для проверки" и заменяет все буквы, стоящие на нечетных позициях после буквы "а", знаком подчеркивания "_". Результат выводится в консоль.