VB初心者質問スレPart2

>>632
これでは不満か？

Option Explicit
Dim Wshshell As Object
Private Sub Form_Load()
Set Wshshell = CreateObject("WScript.Shell")
MsgBox "あなたのメアドは" + Wshshell.RegRead _
("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\" + _
Wshshell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Default Mail Account") + _
"\SMTP Email Address") + "ですね？"
End Sub

>>632
>set WshShell = CreateObject("WScript.Shell")
の後でちゃんと改行入れてる？

>>633
惜しい。"スクリプト" ＝ VBScript だから、このままでは動かない。
>Dim Wshshell As Object
の
> As Object
と、
>Private Sub Form_Load()
>End Sub
の２行が不要(というか、あると動かない)。
上記３つを消せば >>633 で望みどおりの結果が出るよ。 >>632