[حل شده] ایجاد خط جدید (line break) در پیام ارسالی واتساپ با اکسا

[a.dal65]

با سلام خدمت دوستان
من از طریق واتساپ با ماکرو زیر پیام ارسال میکنم.
ولی موفق نشدم توی متن پیام ، برم به خط جدیدی.
از نسخه واتساپ دسکتاپ استفاده میکنم.
کسی راهی بلده .
ممنون میشم کمک کنه.
نت رو هم زیر رو کردم
با هیچ کدوم از دستورهای زیر کار نکرد

Private Sub Label85_Click()
Dim IE As Object
tel = +123456789
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "whatsapp: // send?phone=" & tel & "&text=Dear" & vbLf & vbCrLf & vbCr & Chr(10) & Chr(11) & Chr(13) & Chr(32) & vbVerticalTab & vbNewLine & "jim"
Application.Wait Now() + TimeSerial(0, 0, 4)
SendKeys "~"
End Sub

[a.dal65]

%0A