動作環境　9.0.1　ですが、下記のソースでは、落ちませんでした。

Sub Initialize
    
    Dim sourceArray1() As String
    Dim source2 As variant
    Dim ans As variant
    
    ReDim sourceArray1(1 To 5)
    sourceArray1(1)="1"
    sourceArray1(2)="2"
    sourceArray1(3)="3"
    sourceArray1(4)="4"
    sourceArray1(5)="5"

    source2=Null
    
    ans = ArrayAppend( sourceArray1, source2)
    
    
End Sub

ans=["1","2","3","4","5",null]と返ってきました。

サンプルソースを添付して頂けないでしょうか？

どちらにしろ、Notesが落ちてしまうなら、事前にNothingのチェックを入れるなどの回避策が必要になるかと思います。

Rits西様

ご回答ありがとうございます。

添付頂いたソースでは落ちませんでした。

原因究明してみます。

参考までに落ちるソースです。

Sub Initialize
 Dim ans As Variant
 Dim strings(0) As String
 
 'とりあえず配列にしておく(これをやらないとArrayAppendでエラー発生)
 ans = strings
 
 'ここでこける
 ans = ArrayAppend(ans, null)
 
End Sub

こける要因は

・第一パラメータの配列要素が1つである

・第二パラメータの要素が null(nothing) である

ようです。

Sub Initialize
 Dim ans As Variant
 Dim strings(1 To 1) As String
 
 strings(1) = "asdf"
 
 'とりあえず配列にしておく(これをやらないとArrayAppendでエラー発生)
 ans = strings
 
 '１．文字追加、これはこけない。これをすれば、その次にnull(nothing)を追加してもこけない
 ' ans = ArrayAppend(ans, "aaa")
 
 '２．これはエラー発生。ヘルプ記載の通り
 ' ans = ArrayAppend("asdf", "222")

 '３.これはこける。１．を生かせば、こけない
 ' ans = ArrayAppend(ans, nothing)
 ' ans = ArrayAppend(ans, null)
 
 '４．これはこける
 ans = ArrayAppend(strings, null)

End Sub