DIY Digital Signature

[MarkOW]

Hi, I am trying to create a DIY digital signature block on that inserts the signers details on a worksheet. this is what I have so far.
The commandbutton is on a userform along with a couple of comboboxes.

Private Sub CommandButton1_Click()




Dim myCell As Range
Dim myTextBox As textbox


Set myCell = ActiveCell


With myCell
Set myTextBox = .Parent.TextBoxes.Add(Top:=.Top, Left:=.Left, _
Width:=130, Height:=50)
End With


With myTextBox
.Caption = ComboBox1.Value & Chr(10) & ComboBox2.Value & Chr(10) & Now()




        With ActiveSheet.Shapes("Text Box 24").Fill
        .Visible = True
        .UserPicture "C:\Users\Desktop\Image1.jpg"
    End With


End With




End Sub

First part works as I wanted with name, reason for signing & date entering into textbox.
I would like to add an image of the signature to the right of this text but am having difficulty doing this.
Can anyone offer help or suggest an alternative

Thanks in advance
Mark