انا عملت مربع نص مخفي في النموذج وسميته Key وجعلت القيمة الافتراضية له مفتاح الدولة
وغيرت الحدث بهذا الشكل
Dim phoneNumber As String
Dim whatsappURL As String
phoneNumber = Me.Key+txtPhoneNumber.Value
If Len(Trim(phoneNumber)) = 0 Then
MsgBox "يرجى إدخال رقم هاتف", , ""
Exit Sub
End If
whatsappURL = "https://web.whatsapp.com/send?phone=" & phoneNumber
Application.FollowHyperlink whatsappURL
صحيح في شوية بطئ في فتح الواتساب لكن الحمدلله ضبط