Yapması biraz uzun sürebilir ama. Şehir isimleri "etiketler" ile yazılıp.
Her etiketede örnekteki gibi;
(Form2=haritadaki ilin üzerine tıklanınca açılacak form)
(Textsehir = şehir isminin yazılmasını istediğin textbox)

Private Sub EtiketBURSA_Click()
Forms!form2!Textsehir = "BURSA"
End Sub

yazabilirsin