[ناجي إبراهيم]

السلام عليكم...

و يمكنك أيضاً إنشاء دالة لهذا الغرض:

كود :

Public Function QuotedStr(ByVal AString As String) As String
        Return Chr(34) & AString & Chr(34)
    End Function
    ' ...
    ' ...
    Dim S As String
    S = "My name is " & QuotedStr("Ismael")

نرجو الاستفادة و السلام.