C++11

> без указателей

Ссылки / shared_ptr / тупостек

> побольше функциональных фич

STL в C++11/14

> полный Юникод искаропки

Glib::ustring

Вам ещё рано на нормальном взрослом языке.

VB.Net в своем нынешнем виде никоим образом новичков в программировании не портит. Обладая таким же порогом вхождения, как и Python, VB проигрывает последнему в кроссплатформенности, но выигрывает в скорости разработки графического интерфейса (ибо на tkinter писать тяжело новичку, pyqt и wx еще надо поставить и освоить).

Ну давайте, назовите хотябы пару языков, на которых легко и приятно делать GUI. Я за свою уже достаточно долгую жизнь видел ровно 4 варианта: VisualBasic, Delphi, C++Builder (та же Delphi, только с C++ вместо Паскаля) и VisualStudio (WinForms).

Я даже облегчу задачу и не буду настаивать на визуальной рисовалке, пусть будет текстовое описание, но чтобы реально интуитивное и лаконичное.

Там [VB] та простота, которая "хуже воровства" — на паскалях (фри, дельфях и т.д.) народ из особо упорoтых^W энтузиастнутых и драйвера с ОСями писать умудрялся. Выглядело конечно немного экзотично/непривычно, но в принципе проще читаемо и далеко не так "шибануто", как обычный VBшный код для любого действия вне рамок "обработка гуе-событий и пара-тройка операций с файлами и вводом пользоваетля".

Вот например вполне официальная версия замены подстрок в строке, VB5:
https://support.microsoft.com/en-us/kb/188007
[CODE]
Public Function Replace(sIn As String, sFind As String, _
            sReplace As String, Optional nStart As Long = 1, _
            Optional nCount As Long = -1, Optional bCompare As _
            VbCompareMethod = vbBinaryCompare) As String

          Dim nC As Long, nPos As Integer, sOut As String
          sOut = sIn
          nPos = InStr(nStart, sOut, sFind, bCompare)
          If nPos = 0 Then GoTo EndFn:
          Do
              nC = nC + 1
              sOut = Left(sOut, nPos - 1) & sReplace & _
                 Mid(sOut, nPos + Len(sFind))
              If nCount <> -1 And nC >= nCount Then Exit Do
              nPos = InStr(nStart, sOut, sFind, bCompare)
          Loop While nPos > 0
      EndFn:
          Replace = sOut
      End Function
[/CODE]