Send info fra Excel ved dbl.-klik

Hej Alle.

Jeg roder med en vb6 løsning hvor jeg åbner Excel fra min app.
Efter indtastning i Excel, ønsker jeg ved dbl.-klik på celle at sende værdier fra Excel til min vb-app.
Noget i stil med.

Private Sub HentPris()
    Dim i As Integer
    Dim strStk As String
    Dim strStkBesk As String
    Dim strTekst As String
    Dim curPris As Currency

    If ActiveCell.Row > 2 Then
        i = ActiveCell.Row
        strStk = Range("B" & i).Text
        strStkBesk = Range("C" & i).Text
        strTekst = Range("D" & i).Text
        If Range("E" & i).Text <> "" Then curPris = Range("E" & i).Text
        MsgBox strStk & vbNewLine & strStkBesk & vbNewLine & strTekst & vbNewLine & curPris

    End If
End Sub

Hvordan sender jeg MsgBox værdier til vb ?