Found this solution so simple:
<DllImport("kernel32")> _
Private Shared Function GetPrivateProfileString(ByVal Section As String, ByVal Key As String, ByVal [Default] As String, ByVal RetVal As StringBuilder, ByVal Size As Integer, ByVal FilePath As String) As Integer
End Function
Public Function Read(ByVal Key As String, Optional ByVal Section As String = Nothing) As String
Dim RetVal = New StringBuilder(255)
GetPrivateProfileString(Section, Key, "", RetVal, 255, Path)
Return RetVal.ToString()
End Function