>あにす様
結果を報告します。

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" ( _
  ByVal LongPath As String, _
  ByVal ShortPath As String, _
  ByVal ShortPathSize As Long) As Long

  Dim ShortName As String * 1000
  GetShortPathName "\\99.9.9.999\kyoyu\AKI テス\テストでのコピー機（コピー用紙）の主に、受付事務の請求業務時、報告書のFAX時、テスト業務での対診表、手術例切り出し図の印刷など", ShortName, 1000
  MsgBox Left(ShortName, InStr(ShortName, vbNullChar) - 1)

以上のコーディングでmsgboxには何も表示されません。
ShortNameはIsNullで聞いてもNullではないようです。
デバックモードで見たら「･･･････」が1000個分入っていました。