scusa ma le variabili che hai messo:
Dim Risp1 As Long
Dim P1 As Integer, P2 As Integer, l1 As Integer, a1 As Integer
Dim Msg1, Msg2 As String

nn servono a niente???
prob hai copiato il codice così comera da una ltro prog che usava quella variabili cmq grazie lo stesso