Prueba...
Código vb:
Ver original<DllImport("shell32.dll")> _
Private Shared Function SHGetFolderPath(hwndOwner As IntPtr, nFolder As Integer, hToken As IntPtr, dwFlags As UInteger, <Out> pszPath As StringBuilder) As Integer
End Function
Public Shared Function GetFontFolderPath() As String
Dim sb As New StringBuilder()
SHGetFolderPath(IntPtr.Zero, &H14, IntPtr.Zero, &H0, sb)
Return sb.ToString()
End Function