VB中用msgbox要显示的内容要加变量

Question

Private Sub Command1_Click()
Text1.Text = Int(10 * Rnd())
Text3.Text = Int(10 * Rnd())
Text2.Text = Int(10 * Rnd())
If Text1.Text = Text2.Text = 8 And Text2.Text = Text3.Text = 8 Then MsgBox "恭喜你中了500万", 0, "恭喜" Else: Label2.Visible = True
If Text1.Text = Text2.Text And Text2.Text = Text3.Text Then MsgBox "恭喜你中了100万", 0, "恭喜" Else: Label2.Visible = True
If Text1.Text = Text2.Text Then MsgBox "恭喜你中了 text3.text*100", 0, "恭喜"
If Text3.Text = Text2.Text Then MsgBox "恭喜你中了 text1.text*100", 0, "恭喜"
If Text1.Text = Text3.Text Then MsgBox "恭喜你中了 text2.text*100", 0, "恭喜"
End Sub

要把最后几句里面显示的内容是剩余一个textbox的值*100 要怎么做
按照上边的做的话 显示的是 恭喜你中了text1.text*100
在VF中这是不是更容易实现

Answer 1

If Text3.Text = Text2.Text Then MsgBox "恭喜你中了" & text1.text*100 , 0, "恭喜"