Hyperlink in einem Formular erweitern | Herbers Excel-Forum

Hallo Forum,
ich habe in einer Arbeitsmappe ein Formular hinterlegt, wo ich die Email Adresse des zuständigen Ansprechpartners mit Hyperlink hinterlegt habe. Nun möchte ich bei anklicken des Hyperlinks gleich ein Subject mit eintragen. Wenn möglich soll der Inhalt der Zelle C6 (Tabelle 5) als Subject ausgelesen werden. In der Zelle B6 steht die Email Adresse.
Wie mache ich das? Ich habe es selber probiert einfach ?subject= anzuhängen, das geht aber nicht.
Hier mal zum verdeutlichen der Code:
Option Explicit

Private Sub cmdOk_Click()
Unload Me
End Sub

Private Sub lblErst2_Click()
End Sub

Private Sub lblErst3_Click()
End Sub

Private Sub lblErst4_Click()
Dim strLink1 As String
strLink1 = lblErst4.Caption
If LCase(Left(strLink1, 7)) <> "mailto:" Then
strLink1 = "mailto:" & strLink1
End If
ActiveWorkbook.FollowHyperlink Address:=strLink1, NewWindow:=True
End Sub

Private Sub UserForm_Initialize()
lblVNr.Caption = Tabelle5.Range("B1").Value 'Version
lblVDat.Caption = Tabelle5.Range("B2").Value 'Datum
lblErst1.Caption = Tabelle5.Range("B3").Value '
lblErst2.Caption = Tabelle5.Range("B4").Value 'Ersteller
lblErst3.Caption = Tabelle5.Range("B5").Value 'Telefonnr.
lblErst4.Caption = Tabelle5.Range("B6").Value 'Emailadresse
Label10.Caption = Tabelle5.Range("B7").Value 'Internetlink
End Sub

Private Sub cmdFollowHyperlink1()
Dim strLink1 As String
strLink1 = lblErst4.Caption
If LCase(Left(strLink1, 3)) = "mailto:" Then
strLink1 = "mailto:lauter_nette@leute.de?subject=Zellinhalt C6" & strLink1
End If
ActiveWorkbook.FollowHyperlink Address:=strLink1, NewWindow:=True
End Sub