Hyperlink in TextBox

[jajinder]

Hi, Question already exsist, but the answer is not available anymore. How do I format the text in an TextBox as a Hyperlink? This is what I have, but does not work.
Private Sub TextBox19_Click()
ActiveCell.Hyperlinks.Add ActiveCell, TextBox19.Value, , , "Click to activate!"
End Sub
This code does not work....

Greets Jajinder

 

[jajinder]

Got it from another forum.
'With only a hyperlink
Private Sub TextBox1_Enter()
Dim sLinkToFollow As String
sLinkToFollow = TextBox20.Value
ActiveWorkbook.FollowHyperlink Address:=sLinkToFollow
End Sub

'With an e-mailadress
Private Sub TextBox1_Enter()
Dim sLinkToFollow As String
sLinkToFollow = "mailto:" & TextBox19.Value
ActiveWorkbook.FollowHyperlink Address:=sLinkToFollow
End Sub

Greets Jajinder