VBA to Outlook问题-不需要带逗号的数字

Sub SendNumberWithoutComma()
    Dim num As Double
    Dim strNum As String
    
    ' 设置数字
    num = 12345.67
    
    ' 使用Format函数将数字转换为不带逗号的字符串
    strNum = Format(num, "0")
    
    ' 创建Outlook应用程序对象
    Dim olApp As Object
    Set olApp = CreateObject("Outlook.Application")
    
    ' 创建新邮件
    Dim olMail As Object
    Set olMail = olApp.CreateItem(0)
    
    ' 设置邮件主题和内容
    olMail.Subject = "数字示例"
    olMail.Body = "这是一个不带逗号的数字: " & strNum
    
    ' 显示邮件
    olMail.Display
    
    ' 释放对象
    Set olMail = Nothing
    Set olApp = Nothing
End Sub