Visual Basic Foro

Estoy modificando un codigo de memorama, en este juego cuando destapas la segunda carta y resulta que no es par de la primera carta destapada aparece un MsgBox que dice "Te equivocaste" ,se puede hacer algo para que en lugar de que siempre aparezca "Te equivocaste" aparezcan mensajes diferentes ?

Aqui es donde segun yo creo que se puede modificar esto o acá dejo el juego completo http://www.mediafire.com/?azknm45yz3yy5gx
Private Sub lblBoton_Click(Index As Integer)
  frmMemo.imgImagen(Index).Visible = True
  frmMemo.lblboton(Index).Visible = False
  intChecar = intChecar + 1
  If intChecar = 1 Then
    intImagen1 = Index
  End If
 
  If intChecar = 2 Then
    intChecar = 0
    intImagen2 = Index
    intParNon = Index Mod 2
    If intParNon = 0 Then
      ' Aqui es par, se compara el numero anterior
      If frmMemo.imgImagen(Index + 1).Visible = False Then
        ' No esta visible el par
        ' Oculta las imagenes
        MsgBox "Te Equivoaste", vbExclamation + vbOKOnly
        frmMemo.imgImagen(intImagen1).Visible = False
        frmMemo.imgImagen(intImagen2).Visible = False
        ' Se muestran las etiquetas
        frmMemo.lblboton(intImagen1).Visible = True
        frmMemo.lblboton(intImagen2).Visible = True
      Else
        ' Veo si ya se destaparon todas
        Checar_Final
      End If
    Else
      ' Aqui es non, se compara el umero siguiente
      If frmMemo.imgImagen(Index - 1).Visible = False Then
        ' No estan visible el par
        ' Se ocultan las imagenes
        MsgBox "Te Equivoaste", vbExclamation + vbOKOnly
        frmMemo.imgImagen(intImagen1).Visible = False
        frmMemo.imgImagen(intImagen2).Visible = False
        ' Se muestran las etiquetas
        frmMemo.lblboton(intImagen1).Visible = True
        frmMemo.lblboton(intImagen2).Visible = True
      Else
        ' Veo si ya se destaparon todas
        Checar_Final
      End If
    End If
  End If
End Sub