Visual Basic problem... Hjælp søges

Hey boys

Jeg har siddet de sidste par dage og forsøgt at lære noget VBA i Excel.

Opgaven er relativ simpel, jeg har følgende stående i mine kolonner

A              B            C              D           
Produktkode    Enhedspris  Min. køb        Rabat

Nu er opgaven at jeg skal indtaste en produktkode og antal styk der er købt. hvis styk antallet overstiger værdien skal rabatten fra kolonne D ganges på enhedsprisen.

Men mit problem starter lidt tidligere, da jeg simpelthen ikke kan få min kode til at fatte værdien af den celle jeg operer med.

her er min kode:

Sub prisdata()
 
    Dim produkt As String
    Dim pris As String
    Dim styk As Integer, i As Integer, rabat As Integer
    Dim AntalPK As Integer
    Dim Found As Boolean
    Found = False
    With Range("A3")
        AntalPK = Range(.Offset(1, 0), .End(xlDown)).Rows.Count
    End With
 
produkt = InputBox("Indtast produktkoden")
styk = InputBox("Hvor mange styks er der købt")
 
    With ActiveSheet.Range("A3")
        For i = 1 To AntalPK
            If .Offset(i, 0) = produkt Then
                Found = True
                    If .Offset(i, 2) <= styk Then
                    pris = (.Offset(i, 1).Value) And rabat = (.Offset(i, 3).Value) _
                    And MsgBox("prisen er " & pris & ".")
                    Else: pris = .Offset(i, 1).Value And MsgBox("Prisen er " & pris & ".")
                    End If
                Exit For
            End If
        Next
    End With 
End Sub

Det er linjerne :
pris = (.Offset(i, 1).Value) And rabat = (.Offset(i, 3).Value) _
And MsgBox("prisen er " & pris & ".")
Else: pris = .Offset(i, 1).Value And MsgBox("Prisen er " & pris & ".")

som jeg har problemet med. Er der nogen der kan se hvad jeg gør galt???

På forhånd tak :)