Я бы не стал пытаться решить проблему, я просто дам вам подсказки. Это справедливо? И специально я буду использовать разные имена переменных, чтобы было понятнее:
'Check the shirt color
If shirtColor = "Red" Then
increase1 = oldprice1 * 0.02
newPrice1 = oldPrice1 + increase1
Else
increase2 = oldPrice2 * 0.01
newPrice2 = oldPrice2 + increase2
End If
Теперь, чтобы получить A от меня, вам нужно создать перечисление цветов вместо строки или использовать существующее перечисление, такое как System.Drawings.Color
Строки хитрые и одна орфографическая ошибка или заглавная буква, и это другой цвет для VB.NET