ダイアログ呼び出し例

Sub ダイアログ呼び出し()
　With Sheets("Dialog2")　’ダイアログの名前（シートの並びに記されています）
　　.Show 'ﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽを表示
　　.EditBoxes(1).Text = "" 'テキストボックスの初期値をクリアする
　End With
End Sub

.show　→　開く
.Text 　→　値を取得する