shu様、返信ありがとうございます。

変換表というのはDictionaryを指していたのですね。keyとvalueをセットし良きように変換する。

うまく処理できました。和暦変換はできたのですが、それの正否判定にてお聞きしたいことがあります。
下記が詳細のコードです。生年月日の判定を行っております。(txtDateはテキストボックス)

（txtDateは既に和暦変換済み。例：H27/11/20)
Dim dt As DateTime           
If DateTime.TryParse(txtDate.Text, dt) = False Then
    '変換失敗
    Return
Else
    Dim cultureInfo As DateTimeFormatInfo = New CultureInfo("ja-JP").DateTimeFormat
    cultureInfo.Calendar() = New JapaneseCalendar()
    txtDate.Text = CStr(DateTime.Parse(txtDate.Text, cultureInfo))
    Return
    'OK
End If

↑は変換された和暦に対して修正をかけた際にテキストボックスからフォーカスが離れたときにおこるイベントの一部です。
もう少し行数を減らせたり他の方法があったりするのでしょうか？
    Dim cultureInfo As DateTimeFormatInfo = New CultureInfo("ja-JP").DateTimeFormat
    cultureInfo.Calendar() = New JapaneseCalendar()
や
Dim dt As DateTime           
If DateTime.TryParse(txtDate.Text, dt) = False Then
End If
↑も一行でまとめられるのか？

お知恵を貸していただけると幸いです。