郵便番号を入力すると住所を表示する処理をしたいのですが、
下記の処理をかなり前に書いて、
成功していたのですが、
最近出来なくなってしまいました。
エラーは起こらないのですが、
一番下のElseが常に実行されます。
原因として思い当たる事無いでしょうか？
お願いします。
Private Sub imPostal1_Searched(HasFound As Boolean, ResultCode As Long)
If HasFound <> True Then
    If ResultCode <> 0 Then
        Select Case ResultCode
        Case imErrorFileNotFound
'           StatusBox.Caption = "住所ファイルが見付からない"
        Case imErrorUnknownDatabase
'           StatusBox.Caption = "住所データベースの内部エラー"
        Case imErrorInvalidArgument
'           StatusBox.Caption = "無効な引数"
        Case imErrorUnknown
'           StatusBox.Caption = "予期しないエラー"
        Case Else
'           StatusBox.Caption = "不明なエラー" + str(ResultCode)
        End Select
    Else
        DataCombo1(1).Text = ""
        imText1.Text = ""
        imText2.Text = ""
    End If
Else
    DataCombo1(1).Text = imPostal1.Address.PrefectureKanji
    imText1.Text = imPostal1.Address.CityKanji + imPostal1.Address.AreaKanji
    imText2.Text = ""
End If
End Function

HasFound が True なのでは？
としか言いようがありません。

情報があまりにも不足してて答えたくても答えられませんね。

> End Function　　　→　　End Sub
これが実際に使用されているコードならエラーが発生しているかと。
このような間違いがあると、他の事もあまり信用できないかと。

> Private Sub imPostal1_Searched(HasFound As Boolean, ResultCode As Long)
上記の引数に何が入っているのかを調べる事から初めて下さい。

へむへむさん・nanashiさん・花ちゃんさん返信有難うございます。

> > End Function　　　→　　End Sub
> これが実際に使用されているコードならエラーが発生しているかと。
> このような間違いがあると、他の事もあまり信用できないかと。
スミマセン書き込む際のミスです。
実際のコードはEnd Subです。

imputmanのファイルを古いのに戻したら同じ処理で住所が出ました。