如何在VBA中添加分隔符来计算函数？

Function AddSeparator(num As Double, separator As String) As String
    Dim strNum As String
    Dim result As String
    Dim i As Integer
    
    ' 将数字转换为字符串
    strNum = CStr(num)
    
    ' 从字符串的最后一位开始遍历
    For i = Len(strNum) To 1 Step -1
        ' 每隔三位添加分隔符
        If (Len(strNum) - i + 1) Mod 3 = 0 And i <> 1 Then
            result = separator & Mid(strNum, i, 1) & result
        Else
            result = Mid(strNum, i, 1) & result
        End If
    Next i
    
    AddSeparator = result
End Function