VBAで "Expected Expression"エラーが発生しました

Question

サイトを初めてご利用になりましたが、投稿を閲覧するのに多くの時間を費やしています。 VBA、特にユーザーフォームを使い始めたばかりで、問題を抱えています。
私が欲しいものは次のとおりです。ユーザーフォームの送信ボタンにリンクされたメッセージボックスを追加します。同僚が「はい」と回答した場合は、フォームに記入した情報を提出してください。私はコードを幾分把握していますが、msgbox行には "期待される表現"エラーがあります。これを引き起こす原因は何ですか？おかげでみんな

Answer 1

が、私はわからないあなたがメッセージボックスを呼び出すしたいのですが、ここでの考え方であるた:)

Private Sub CB_Submitted_Click() 

Range("A1") = "Hello pgw215" 

'or 
'Range("A1") = TextBox1 

End Sub 

---

Private Sub UserForm_Initialize() 

Dim Question As String 
Dim Answer As Byte 


Question = "Is your name pgw215?" 

Answer = MsgBox(Question, vbYesNo) 


    If Answer = 6 Then 'Yes 

     Call CB_Submitted_Click 

    ElseIf Answer = 7 Then 'No 


    ElseIf Answer = 5 Then 'Ignore 


    End If 

End Sub