Picturebox のTagプロパティを使ってみるっていう手もありじゃないですか？
Tag = "H-1"
みたいにカードの情報を入れて、

Dim Mark As String = Tag.Split("-")(0)
Dim Num As String = Tag.Split("-")(1)

変数名、区切り文字などは自由ですけど、例として MarkとNum 区切り文字に ハイフンを使いました。