How do you save a message in one place then use it in another Sub

[aragon123321]

I was just wondering if I could make a message here in my first Sub and then Call it in another Sub. I don't know if this is even possible.
Thank you if you can help in any way.

Here is the code,

Sub Procedure()
Dim Cell, result As String, I As Long
For I = 3 To 17
If Cells(I, 14).Value > 6
Then Call SendMessage
x = " saved message"
Exit Sub
End If
End Sub
--------------------------------------------
sub Sendmessage()

strbody = load message x

 

[njimack]

Something like this maybe...

Sub Procedure()
Dim Cell, result As String, I As Long
Dim strbody As String
For I = 3 To 17
    If Cells(I, 14).Value > 6 Then
        strbody = " saved message"
        Call Sendmessage(strbody)
        Exit Sub
    End If
Next I
End Sub



Sub Sendmessage(strbody)
'your code here
End Sub