Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　住所から郵便番号を取得する
'
'  Copyright(C) 2000 Sunago
'
'  前提：新7桁郵便番号対応キットおよび新 7 桁郵便番号辞書のインストール
'   　　及びアドイン"ZipCode7.xla"への参照設定が必要です。
'
'  使い方：GetYubin7("東京都中央区日本橋")のように記述すると
'   　　　　該当する７桁の郵便番号を取得することができます。
'
Option Explicit

Declare Function wu_Yubin7 Lib "MSYUBIN7" _
        Alias "yubin7" _
        (ByVal szAddress$, _
         ByVal szZipCode$, _
         ByVal szBarCode$) As Integer

'/* MSYUBIN7のカバー関数 */

Public Function GetYubin7(sAddress As String) As String
Dim szZipCode As String * 255
Dim szBarCode As String * 255
Dim sZipCode As String
Dim iret As Integer

    fnStartYubin7
    iret = wu_Yubin7(sAddress, szZipCode, szBarCode)
    sZipCode = Left(szZipCode, InStr(szZipCode, vbNullChar) - 1)
    GetYubin7 = sZipCode

End Function

'/* 使い方の例題 */

Sub Macro1()
Dim strJusho As String

    strJusho = "東京都新宿区愛住町"
    MsgBox strJusho & vbCr & _
            "郵便番号" & GetYubin7(strJusho)

End Sub