I think i figured it out.

I change the following to the first sub routine

from 

Call VerifyOkay

to 

Call VerifyOkay(myChange)
Then changed the second sub routine

from

Sub VerifyOkay()

to

Sub VerifyOkay(myRev)
Then changed the myChange variable to myRev

Dim myVerify(1 To 6) As Variant

    myVerify(1) = txtPlanningNo.Value
    myVerify(2) = cboEngineer.Value
    .
    .
    .
    myVerify(6) = myRev(1)
Thanks all for pointing me in the right direction.