読み仮名（ふりがな）をふるにはMS-IME98のタイプライブラリを使用するのが一番簡単です。このタイプライブラリを使用するには[プロジェクトー参照設定]でMSIME Type Libraryを選択します。もしこのライブラリファイルが一覧に存在しない場合はmsime.tlbというファイルをエクスプローラなどで検索し[参照]ボタンを使用して一覧に追加してください。
'--------------------------------------------------------
'
'--------------------------------------------------------
Private Sub Command1_Click()
Dim objIME98 As New MSIMEJPN
Dim objIME As IFELanguage
Set objIME = objIME98
objIME.Open
'Text1の文字列を読み仮名に変換しText2にセット
Text2.Text = objIME.GetPhonetic(Text1.Text)
objIME.Close
End Sub
